Предмет: Информатика,
автор: Natalka1997
составьте программу вычисления в массиве B(N) минимального элемента и его номера
Ответы
Автор ответа:
0
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]<min then begin min:=mas[i]; min1:=i; end;
Writeln('Минимальное является: ',min,' его номер в массиве: ',min1);
End;
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]<min then begin min:=mas[i]; min1:=i; end;
Writeln('Минимальное является: ',min,' его номер в массиве: ',min1);
End;
Интересные вопросы
Предмет: Математика,
автор: tihonovfedor25
Предмет: Русский язык,
автор: Аноним
Предмет: Алгебра,
автор: dmitrijcernevskij10
Предмет: Математика,
автор: GAD1995
Предмет: Литература,
автор: Shoma86