Модифицируйте предыдущий пример, так чтобы программа определяла максимальный и минимальный элемент массива.

Предыдущий пример

Program Massiv;

Const N=10;

Var A:array [1 ... N] of integer;

i, min:integer;

begin

for i:=1 to N do

begin

write ('Введите', i,'-й элемент:'); readln (A[i]);

end;

min:=A[1];

for i:=2 to N do if A[i] then min:=A[i];

writeln ('Minimum=', min);

end.

Question

Информатика

Милетий

22 мая, 15:42

Модифицируйте предыдущий пример, так чтобы программа определяла максимальный и минимальный элемент массива.

Предыдущий пример

Program Massiv;

Const N=10;

Var A:array [1 ... N] of integer;

i, min:integer;

begin

for i:=1 to N do

begin

write ('Введите', i,'-й элемент:'); readln (A[i]);

end;

min:=A[1];

for i:=2 to N do if A[i] then min:=A[i];

writeln ('Minimum=', min);

end.

+2

Ответы (1)

Знаешь ответ?

Анюша · Answer 1

Program Massiv;

Const N=10; Var A:array [1 ... N] of integer;

i, min, max:integer;

begin

for i:=1 to N do

begin

writeln ('Введите', i,'-й элемент:'); readln (A[i]);

end;

min:=A[1];

max : = A[1];

for i:=2 to N do

begin

if A[i] < min then min:=A[i];

if A[i] > max then max:=A[i];

end;

writeln ('Minimum=', min);

writeln ('Maximum=', max);

end.