Заполнить массив случайными числами в количестве 20 штук

Question

Заполнить массив случайными числами в количестве 20 штук. Найти сумму и произведение элементовмассива.

Answer 1

91

cognak

01 марта 2023

vara: array[1… 20] of integer; sum,mul,i: integer; beginrandomize; for i: =1 to 20 dobegina[i]: =random (100); end; sum: =0; mul: =1; for i: =1 to 20 dobeginsum: =sum+a[1]; mul: =mul*a[1]; end; writeln ('Summa=',sum); writeln ('Multiply=',mul); end.

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

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

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

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

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