С клавиатуры вводится несколько чисел?

Shkalaberdas 5 мар. 2020 г., 07:35:31

Var a : array [1.

999] of integer ;

i, n, p, m : integer ;

begin

m : = 0 ;

write ('Сколько чисел собираетесь ввести?

: ') ;

readln (n) ;

for i : = 1 to n do

begin

write ('Введите ', i, ' число : ') ;

readln (a[i]) ;

if a[i]> ; 0 then p : = p + 1 ;

if a[i] mod 5 = 0 then m : = m + a[i] ;

end ;

WRITELN ;

writeln ('Вы ввели ', p, ' положительных чисел.

') ;

writeln ('Сумма чисел кратных 5 = ', m) ;

end.

Aleksandr20103 4 мар. 2020 г., 15:22:42 | 5 - 9 классы

С клавиатуры последовательно вводится 10 чисел?

С клавиатуры последовательно вводится 10 чисел.

Найти количество положительных чисел.

Срочноо!

Решите пожалуйста на Паскале.

Bugor150287 18 янв. 2020 г., 22:07:11 | 5 - 9 классы

Найти сумму целых положительных чисел из промежутка от А до В, кратных 4 (значения переменных А и В вводятся клавиатуры)?

Найти сумму целых положительных чисел из промежутка от А до В, кратных 4 (значения переменных А и В вводятся клавиатуры).

Pee006 15 июн. 2020 г., 00:10:56 | 5 - 9 классы

Среди n введенных с клавиатуры чисел, найти сумму положительных и произведение отрицательных чисел?

Среди n введенных с клавиатуры чисел, найти сумму положительных и произведение отрицательных чисел.

Kamildzhan 1 июн. 2020 г., 04:30:03 | 10 - 11 классы

C клавиатуры вводятся 30 чисел?

C клавиатуры вводятся 30 чисел.

Найти произведение положительных чисел.

Asdfar2002 24 окт. 2020 г., 11:55:33 | 10 - 11 классы

С клавиатуры вводится n чисел?

С клавиатуры вводится n чисел.

Найти сумму и количество трехзначных и нечетных чисел.

Pascal.

Mahamusatova 29 дек. 2020 г., 20:31:57 | 10 - 11 классы

Пожалуйста, помогите?

Пожалуйста, помогите!

Срочно!

В ПАСКАЛЕ : 1) найти количество положительных целых чисел от 45 до 215 ; 2) Найти сумму положительных целых чисел от - 50 до 200, кратных 5 и 8 ; 3) Найти сумму и количество отрицательных четных целых чисел, введенных с клавиатуры.

Печать результата по вводу числа 0.

Вутшы 11 окт. 2020 г., 21:05:16 | 5 - 9 классы

Написать программу для Pascal?

Написать программу для Pascal.

Вычислите сумму положительных и кол - во отрицательных чисел на отрезке, концы которого вводятся с клавиатуры.

1Демон1 31 дек. 2020 г., 04:01:46 | 10 - 11 классы

С клавиатуры вводится последовательность целых чисел, оканчивающаяся нулем?

С клавиатуры вводится последовательность целых чисел, оканчивающаяся нулем.

Найти количество отрицательных чисел и сумму чисел кратных 4.

Alina0606 22 дек. 2020 г., 02:52:07 | 10 - 11 классы

С клавиатуры вводится некоторое количество положительных чисел, результатом конца ввода является любое отрицательное число?

С клавиатуры вводится некоторое количество положительных чисел, результатом конца ввода является любое отрицательное число.

Найти и вывести на экране все числа кратные 3.

Vitpukin 16 нояб. 2020 г., 14:30:20 | 5 - 9 классы

С клавиатуры вводится l целых чисел?

С клавиатуры вводится l целых чисел.

Подсчитать кол - во нечетных чисел и произведение положительных.