Прошу, помогите с программой. Баллами не обижу. 10кл Дан массив заданный датчиком...

Question

Прошу, помогите с программой. Баллами не обижу. 10кл

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

Answer 1

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

Comments

спасибо большое....а почему там 181? не соасем пончла

---

Функция Random(maxValue: integer) возвращает случайное целое в диапазоне от 0 до maxValue-1 (в нашем случае - от 0 до 181-1 включительно. Так как нужен интервал  [-50;130], то вычитаем потом 50.

---

болтшое спасибо вам