Дан массив A (20) заполнить его случайными целыми числами из [-10;…

Question

Дан массив A (20) заполнить его случайными целыми числами из [-10; 20] вывести на экран найти минимальный элементы массива и сумму положительныхчисел

Answer 1

54

andryufas

15 августа 2022

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: