Напишите программу на любом вам известном алгоритмическом языке. На вход программе подаётся число N. Программа формирует N случайных чисел сумму тех из них остаток от деления которых на 5 больше двух

program zz1;

var n, i, k:integer; / / задаем переменные целого типа

m:array [1 ... 100] of integer;

begin

read (n);

for i:=1 to n do / / получаем n чисел случайных и записываем их в массив

m[i]:=random (51);

for i:=1 to n do / / выводим полученный массив на экран

write (m[i],' ');

writeln; / / переходим на новую строку для вывода ответа

for i:=1 to n do

if m[i] mod 5 > 2 then k:=k + m[i]; / / проверяем условие и находим сумму чисел

write (' полученная сумма = ', k); / / выводим ответ

end.