Задать 10 целых случайных чисел на отрезке (-20: 40). - вопрос №102040393888 от Викусик1258 11.07.2022 08:59

Question

Информатика: Задать 10 целых случайных чисел на отрезке (-20: 40). найти сумму чётных положительных чисел, произведение чисел, кратных 5, количество чисел в отрезке (-10: 10) program chisla; дальше чё

Викусик1258 · Answer

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);