Задать 10 целых случайных чисел на отрезке (-20:40). Найти сумму чётных положительных чисел, произведение чисел, кратных 5, количество чисел в отрезке (-10:10)
Program chisla;
... дальше чё помогите пожалуйста!!
Program chisla;
var a1,a2,a3,a4,a5,a6,a7,a8,a9,10:integer;
begin
write(Введите 10 целых чисел от -20 до 40)
read(a1);
read(a2);
read(a3);
read(a4)
read(a5);
read(a6);
read(a7);
read(a8);
read(a9)
read(a10);
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
