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

105

350

Посмотреть ответы 2

Ответы на вопрос:

KoTBPoccuu

Информатика

4,6(19 оценок)

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