Задание:
Составьте программу, которая формирует массив из 40 случайных целых чисел от 0 до 20 и вычисляет: сумму чисел, кратных 3На экран выводятся исходные значения и результаты вычислений
Решение:
Uses crt; const n=40; var a: array[1… n] of integer; i,s: integer; begins: =0; randomize; for i: =1 to n dobegina[i]: =random (20); writeln (a[i]); end; for i: =1 to n doif (a[i] mod 3=0) then s: =s+a[i]; writeln; writeln (s); end.
Знаете другой ответ?