Задание:
Дан массив A (20) заполнить его случайными целыми числами из [-10; 20] вывести на экран найти минимальный элементы массива и сумму положительныхчисел
Решение:
var a: array [1… 20] of integer; i, min, s: integer; begin min: =20; s: =0; for i: =1 to 20 do begin randomize; a[i]: =random (30) — 10; if a[i] < min then min: =a[i]; if a[i] > 0 then s: =s+a[i]; end; writeln ('Минимальный элемент: ', min); writeln ('Сумма положительных чисел: ', s); end.
Знаете другой ответ?