Найти номер максимального и минимального из введённых с клавиатуры 10 элементов
Паскаль (массивы)
Ответы
Ответ дал:
0
Var
a : array [1..10] of integer;
i, max, min:integer;
Begin
min:=999999999;
max:=-999999999;
for i:=1 to 10 do
begin
readln (a[i]);
if a[i]>max then max:=i;
if a[i]<min then min:=i;
end;
writeln('max index=', max);
writeln('min index=', min);
end.
a : array [1..10] of integer;
i, max, min:integer;
Begin
min:=999999999;
max:=-999999999;
for i:=1 to 10 do
begin
readln (a[i]);
if a[i]>max then max:=i;
if a[i]<min then min:=i;
end;
writeln('max index=', max);
writeln('min index=', min);
end.
Похожие вопросы
2 года назад
2 года назад
6 лет назад
6 лет назад
9 лет назад