Program My_Prog_01;

var n, i, x, t:integer;

begin

while (n<0) do

read (n) ;

t:=0;

for i:=1 to n do

begin

read (x) ;

if (t t:=x;

end;

writeln (t) ;

end.

Исправьте и допишите программу так, чтоб она находила минимальное и максимальное значение в ряде чисел (кол-во задаёт пользователь от 1 до 100 включительно). Числа в данном ряде находятся в пределе от 1 до 1000 включительно и являются целыми. На выходе программа должна выдать на экран максимальное и минимальное число из данного ряда.

Question

Информатика

Александра

25 июня, 11:25

Program My_Prog_01;

var n, i, x, t:integer;

begin

while (n<0) do

read (n) ;

t:=0;

for i:=1 to n do

begin

read (x) ;

if (t t:=x;

end;

writeln (t) ;

end.

Исправьте и допишите программу так, чтоб она находила минимальное и максимальное значение в ряде чисел (кол-во задаёт пользователь от 1 до 100 включительно). Числа в данном ряде находятся в пределе от 1 до 1000 включительно и являются целыми. На выходе программа должна выдать на экран максимальное и минимальное число из данного ряда.

+5

Ответы (1)

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

Евтропия · Answer 1

Program My_Prog_01; var n, max, min:integer; begin read (n) ; max:=n; min:=n; repeat read (n) ; if (nmax) and (n0) then max: = n; until (n = 0) ; writeln ('Макс. число = ', max) ; writeln ('Мин. число = ', min) ; end.