Написать программу, которая вводит с клавиатуры не пустой массив целых чисел, печатает его, затем находит максимальный и минимальный элемент массива, выводит их на экран.

Question

Информатика

Василина

11 октября, 23:49

Написать программу, которая вводит с клавиатуры не пустой массив целых чисел, печатает его, затем находит максимальный и минимальный элемент массива, выводит их на экран.

+2

Ответы (1)

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

Линя · Answer 1

var a: array [1 ... 100] of integer;

i, n, min, max:integer;

Begin

read (n) ;

for i : = 1 to n do

read (a[i]) ;

min:=a[1];

max:=a[1];

for i: = 1 to n do begin

write (a[i],' ') ;

if max
if min>a[i] then min:=a[i];

end;

writeln (min, max) ;

End.