Задание:
1. Создать массив из 20-ти случайных чисел (значения от 0 до 100). Вывести на экран значения массива строкой. Вычислить сумму элементовмассива!
Решение:
1.Program Program1; Vara: array [1… 20] of integer; i,k: integer; beginrandomize; for i: =1 to 20 doa[i]: =random (101); k: =0; for i: =1 to 20 dobeginwrite (a[i],', '); k: =k+a[i]; end; Writeln ('Сумма элементов массива: ',k); end.2.Program Program2; Vara: array [1… 20] of integer; i,k: integer; beginrandomize; for i: =1 to 20 doa[i]: =random (101); k: =0; for i: =1 to 20 dobeginwrite (a[i],', '); inc (k); end; Writeln ('Количество элементов массива: ',k); end.
Знаете другой ответ?