Задание:
Составить программу которая формирует массив из 26 случайных чисел от 0 до 30 и подсчитывает количество чисел кратных 5
Решение:
var a: array [1… 26] of integer; i: integer; beginfor i: =1 to 26 doread (a[i]); if (a[i]>0) and (a[i]<30) thenfor i: =1 to 26 dobeginif a[i] mod 5=0 thenwriteln (a[i]); end; end. Тока посмори правильн а то не могу проверить вроде да
Знаете другой ответ?