tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Склавиатуры ваодится m целых
Склавиатуры ваодится m целых чисел .подсчитать сколько из них отрицательные и все нечётные перемножить
срочно119
2 22.08.2019 19:00
0
Ответы
artembryzgin
05.10.2020 13:12
Program n1;
var m,k,p,a,i: integer;
begin
readln(m);
k:=0;
p:=1;
for i:=1 to m do
begin
readln(a);
if a<0 then k:=k+1;
if a mod 2<>0 then p:=p*a;
end;
writeln(k);
writeln(p);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
ninahatsanowsk
25.09.2019 10:30
Определите, чему будет равно значение переменной a в результате выполнения алгоритма: a = 6 b = 7 b = a * b a = a + b...
chmochmoshnoe
25.09.2019 10:30
1.почему желательно выводить на экран подсказку перед вводом данных? 2.когда по вашему мнению можно вычислять результат прямо в операторе вывода а когда нужно заводить...
sagal63
25.09.2019 10:30
Задано целое неотрицательное число. найти произведение цифр. примеры: 949 выходные данные: 324...
swetadasa
25.09.2019 10:30
Какой минимальный объём памяти (в кбайт) нужно зарезервировать, чтобы можно было сохранить любое растровое изображение размером 512×256 пикселов при условии, что...
Сельга7
25.09.2019 10:30
Ввести целое число и определить, верно ли, что в нём ровно одна цифра 9...
mazaliaopera
25.09.2019 10:30
Много программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 6 и оканчивающихся на 4. программа получает на вход количество...
NightyMigly
25.09.2019 10:40
1)создать массив из 10 элементов и заполнить случайными числами в диапазоне от 100 до 50 2)найти сумму и произведения элементов все сделать в...
Семма0106
25.09.2019 10:40
Составьте программу получения из слова дисковод слова воск , используя операцию сцепления и функцию copy...
Hikolog
25.09.2019 10:40
От разведчика была получена следующая шифрованная радиограмма, переданная с использованием азбуки морзе: при передаче радиограммы было потеряно разбиение на буквы,...
хабиб36
25.09.2019 10:50
Как пойвился значек от майнкрософта...
Популярные вопросы
Какие особенности строения у митохондрий...
2
:/ 2. составьте и запишите предложения, употребляя прилагательные...
2
Скажите сочетаемость к слову вода нужно...
1
Вбоковой стенке цилиндрического бака вблизи дна закреплен кран....
2
Текст о калине ( описать всю ее красоту, заинтересовать читателя...
2
8/9 : 8/27 = вычислите дроби: 2/25 : 3/20 = 21/32 : 35/64 =...
3
От точки а до точки в расстояние - 6000 км. ракета пролетела...
3
Мед несуть у вулик бджоли-зробити схему речення...
2
Выскажите своё мнение относительно действий жены петра екатерины,направленных...
2
Ис соляной кислотой, и с водой реагирует 1) аммиак 2) хлор 3)...
2
var m,k,p,a,i: integer;
begin
readln(m);
k:=0;
p:=1;
for i:=1 to m do
begin
readln(a);
if a<0 then k:=k+1;
if a mod 2<>0 then p:=p*a;
end;
writeln(k);
writeln(p);
end.