Задание:
Задача: Дан массив A состоящий из 10 элементов, заполнить его случайными числами и найти сумму элементов. Решите задачунесколькими спосабами
Решение:
vari,a,b: integer; x: array[1… 15] of integer; begina: =0; b: =0; for i: =1 to 15 dobeginbeginx[i]: =random (15); write (x[i]: 4); end; if (x[i]>=0) and (x[i] mod 3=0) thenb: =b+1; end; writeln; writeln; for i: =1 to 10 dobegina: =a+x[i]; end; write ('суммa=',a); end. -{program zadacha (input, output) ввод-вывод элементов массива}vara: array [1… 10] of integer; i: integer; beginrandomize; for i: =1 to 10 do begina[i]: =random (30); writeln ('A (' I, ')=', a[i]) end end.}-
Знаете другой ответ?