Найти номер максимального и минимального из введённых с клавиатуры 10 элементов

Паскаль (массивы)

Question

Информатика

Вевея

23 февраля, 08:57

Найти номер максимального и минимального из введённых с клавиатуры 10 элементов

Паскаль (массивы)

+5

Ответы (1)

Знаете ответ на вопрос?

Тодя · Answer 1

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]
end;

writeln ('max index=', max) ;

writeln ('min index=', min) ;

end.

Найти номер максимального и минимального из введённых с клавиатуры 10 элементовПаскаль (массивы)

Найти номер максимального и минимального из введённых с клавиатуры 10 элементов

Паскаль (массивы)