Var ar:array[1..10] of integer; i,min,mini:integer; begin; min:=101; randomize; writeln('Array:'); for i:=1 to 10 do begin; ar[i]:=random(100); write(ar[i]:4); if ar[i]<min then begin; min:=ar[i]; mini:=i; end; end; writeln; writeln('Min:',min,' in number:',mini); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
