Agarus
7 год назад
Дан массив из 10 вещественных чисел. Найти min элемент и его номер
ОТВЕТЫ
Аввакумович
Jul 17, 2019
uses crt;
var mas: array[1..10] of integer;
i,min,ind: integer;
Begin
randomize;
For i:=1 to 10 do
Begin
mas[i]:=Random(40)+20 ;
write(mas[i], );
End;
writeln();
writeln();
min:=mas[1];
For i:=1 to 10 do
Begin
If (mingt;mas[i]) then
Begin
min:=mas[i];
ind:=i;
End;
End;
write(Минимальный элемент массива: ,min, ,находится на , ind, месте); End.
var mas: array[1..10] of integer;
i,min,ind: integer;
Begin
randomize;
For i:=1 to 10 do
Begin
mas[i]:=Random(40)+20 ;
write(mas[i], );
End;
writeln();
writeln();
min:=mas[1];
For i:=1 to 10 do
Begin
If (mingt;mas[i]) then
Begin
min:=mas[i];
ind:=i;
End;
End;
write(Минимальный элемент массива: ,min, ,находится на , ind, месте); End.
192
