Язык Паскаль. Дан интервал от - 10 до 10. Найти максимальное и минимальное число.

Question

Информатика

Болеслав

16 августа, 11:43

Язык Паскаль. Дан интервал от - 10 до 10. Найти максимальное и минимальное число.

+1

Ответы (1)

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

Нина · Answer 1

Const N=10;

var i, imax, imin, min, max:integer;

mas:array[1 ... N]of integer;

begin

randomize;

for i:=1 to N do

mas[i]:=random (21) - 10;

for i:=1 to N do

write (mas[i]:4) ;

writeln;

imax:=1;

max:=mas[1];

for i:=2 to N do

if max
begin

max:=mas[i];

imax:=i

end;

writeln ('Максимальный элемент=', max) ;

writeln;

imin:=1;

min:=mas[1];

for i:=2 to N do

if min>mas[i] then

begin

min:=mas[i];

imin:=i;

end;

writeln ('Минимальный элемент=', min) ;

end.