ТутРешу.Ру

Составьте программу, которая формирует массив из 40 случайных целых…

Задание:

Составьте программу, которая формирует массив из 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.




Знаете другой ответ?

Отправить свой ответ