Предмет: Информатика, автор: guuul1

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

Ответы

Автор ответа: kage1998
0
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]<min)then min:=a[i];
end;
writeln(min,' ',max);
end.
Похожие вопросы
Предмет: Биология, автор: inessabaryseva2
Предмет: Математика, автор: anatoliitutevich
Предмет: Алгебра, автор: mariyakurysova