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

Question

Информатика

Груша

22 октября, 12:56

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

+4

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