дан массив состоящий из 15 чисел. Найти среди них максимальный и минимальный элемент.

Question

Информатика

Терентий

30 сентября, 06:55

дан массив состоящий из 15 чисел. Найти среди них максимальный и минимальный элемент.

+1

Ответы (1)

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

Калида · Answer 1

Program gt;

var i, max, min:integer;

a:array[1 ... 15]of integer;

begin

for i:=1 to 15 do

read (a[i]) ;

max:=a[1];

min:=a[1];

for i:=1 to 15 do

begin

if (a[i]>max) then max:=a[i];

if (a[i]
end;

writeln (min,' ', max) ;

end.