Задание:
Заполнить массив случайными числами в количестве 20 штук. Найти сумму и произведение элементовмассива.
Решение:
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.
Знаете другой ответ?