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

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

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

Информатика

Лаврента

13 мая, 23:40

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

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

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.

+4

Ответы (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.