Дан массив С. Найти номер и минимальный элемент в массиве.
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:=ar[i];
mini:=i;
end;
end;
writeln;
writeln(Min:,min, in number:,mini);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
