Задать 10 целых случайных чисел на отрезке (-20:40). Отыскать сумму чётных

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

Program chisla;

... далее чё помогите пожалуйста!!

Задать свой вопрос
1 ответ

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

 

 


, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт