1. Информатика
  2. Нужна блок-напишите программу,

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

Sino4ka Sino4ka    1   03.03.2019 15:14    2

Ответы
87056231946 87056231946  10.03.2019 18:53

var s,i: integer;

a: array[1..100] of integer;

begin

for i: =1 to 7 do

begin

readln(a[i]);

if a[i] mod 2 = 1 then s: = s - a[i];

end;

writeln(s);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Группа134ПО Группа134ПО  22.12.2020 12:24
все целые числа, при которых условие ложно: (число = 100) ИЛИ НЕ (число 104)?...
AlexPvP AlexPvP  22.12.2020 12:24
Можно ли 19 видеороликов размером 380 Мбайт на новую флешку ёмкостью 8 Гбайт ?​...
Kristina238485 Kristina238485  22.12.2020 12:24
1. Дайте соответствующие определения: Шифрование информации-это…Кодирование информации_это..​...
Wjdjsjsksji Wjdjsjsksji  26.09.2021 08:11
алфавит языка программирования содержит прописные И строчные буквы а до z и знаки арифметических операций какова мощность алфавита этого программирования...
sernikovs sernikovs  23.06.2019 13:50
Cтереофайл с частотой дискретизации 48 кгц и глубиной кодирования 24 бита преобразовали в монофайл с частотой дискритизации 24 кгц и глубиной кодирования 16 бит.во...
BellaNow BellaNow  08.11.2020 11:58
Дано неравенство:50010 1000N – 100N 25010,где N – основание системы счисления. Определите, для каких N верно данное неравенство.В ответе запишите через пробел все...
TAMADA123123 TAMADA123123  08.11.2020 12:00
Составьте 3 различных сложных высказывания, используя след. логические операции: конъюнкция, дизъюкция, инверсия. Высказывания должны быть максимально приближены...
Alina560 Alina560  08.11.2020 12:04
Из каких частей состоит !DOCTYPE версии 4.01 ? За что отвечает каждая из частей?...
MASKARAD2211 MASKARAD2211  08.11.2020 12:04
Размеры растрового графического изображения  800 х 600 точек. Количество цветов в палитре 16 млн. Определить информационный объём изображения. ответ запишите в МБайтах.​...
LenaED LenaED  08.11.2020 12:07
Запишите на языке Pascal логическое выражение, имеющее значение true при выполнении указанного условия и false в противном случае. Результат вычисления выражения...

Популярные вопросы