Дан массив, заданный датчиком случайных чисел в интервале [-60; 140]. Определить, минимальный и максимальный элемент массива.

Question

Информатика

Федос

8 сентября, 21:00

Дан массив, заданный датчиком случайных чисел в интервале [-60; 140]. Определить, минимальный и максимальный элемент массива.

+1

Ответы (1)

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

Амвросий · Answer 1

Var arr: array[1 ... 100] of integer; min, max:integer;

begin

for var i:=1 to 100 do arr[i]:=random (-60,140) ;

min:=arr[1];

max:=arr[1];

for var i:=2 to 100 do begin

if arr[i]
if arr[i]>max then max:=arr[i];

end;

writeln (arr) ;

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

end.