Составьте программу вычисления в массиве B(N) минимального элемента и его номера
Составьте программу вычисления в массиве B(N) минимального элемента и его номера
Гость
Ответ(ы) на вопрос:
ГостьVar mas:array [1..20] of integer;
i,min,min1:integer;
Begin
write('Из чисел ');
for i:=1 to 20 do begin
mas[i]:=random(50);
write(mas[i],' ');
end;
writeln;
min:=mas[1];
for i:=1 to 20 do
if mas[i]
Не нашли ответ?
Похожие вопросы