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

Fazilovakz 16 нояб. 2020 г., 14:30:22

Program n1 ;

var i, a, kn, pp, n : integer ;

begin

write('введите кол - во чисел : ') ;

readln(n) ;

pp : = 1 ;

kn : = 0 ;

for i : = 1 to n do

begin

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

readln(a) ;

if a mod 20 then kn : = kn + 1 ;

if a>0 then pp : = pp * a ;

end ;

writeln('кол - во неч.

Чисел : ', kn) ;

writeln('произв.

Пол чисел : ', pp) ;

end.

Zarechnev03 31 мая 2020 г., 23:07:23 | 10 - 11 классы

Вводить с клавиатуры 10 целых чисел, выдать на экран количество положительных чисел, количество отрицательных , количество нулевых?

Вводить с клавиатуры 10 целых чисел, выдать на экран количество положительных чисел, количество отрицательных , количество нулевых.

Kashetay 27 февр. 2020 г., 07:31:35 | 5 - 9 классы

Сформировать одномерный массив из 6 целых чисел, элементы которого вводятся с клавиатуры?

Сформировать одномерный массив из 6 целых чисел, элементы которого вводятся с клавиатуры.

Подсчитать среднее арифметическое элементов с нечетными номерами.

Vovochkapleshk 21 мар. 2020 г., 13:50:56 | 10 - 11 классы

Написать программу при выполнение которой с клавиатуры вводятся 10 целых чисел?

Написать программу при выполнение которой с клавиатуры вводятся 10 целых чисел.

Программа выводит кол - во чисел кратных 5 и её произведение.

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

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

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

Витанка 8 окт. 2020 г., 13:52:58 | 10 - 11 классы

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

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

Признаком конца ввода чисел является 0.

Изменить знак отрицательных чисел на положительный.

Результаты вывести на экран.

Знаток121095 5 мар. 2020 г., 07:35:27 | 5 - 9 классы

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

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

Найти сумму чисел кратных 5 и кол - во положительных.

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

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

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

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

Fafa222 20 февр. 2020 г., 15:29:03 | 5 - 9 классы

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

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

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

Решить в паскале, методом repeat.

Until.

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

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

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

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

Pascal.

Maricha2585 2 апр. 2020 г., 21:06:46 | 10 - 11 классы

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

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