Прошу, помогите с программой. Баллами не обижу. 10кл Дан массив заданный датчиком случайных чисел в интервале [-50;130]. Определить, минимальный и максимальный элемент массива.

Прошу, помогите с программой. Баллами не обижу. 10кл Дан массив заданный датчиком случайных чисел в интервале [-50;130]. Определить, минимальный и максимальный элемент массива.
Гость
Ответ(ы) на вопрос:
Гость
const n=20; var x : array[1..n] of integer;    i, max, min : integer; begin Randomize;  writeln('Исходный массив:'); for i:=1 to n do  begin   x[i]:=random(181)-50;   write(x[i],' '); end; writeln; max:=x[1]; min:=x[1]; for i:=2 to n do  begin  if x[i] > max then max:=x[i];  if x[i] < min then min:=x[i];  end; writeln('max=',max,'  min=',min); end. Пример: Исходный массив: -34 -23 -38 15 108 21 -25 -29 15 -34 34 8 20 76 -27 -43 -17 89 95 -28  max=108  min=-43
Не нашли ответ?
Ответить на вопрос
Похожие вопросы