1. Информатика
  2. 1.найти сумму четных элементов

1.найти сумму четных элементов массива целых чисел.размерность - 20.от 100 до 200.

eldiraelf eldiraelf    2   21.05.2019 21:00    0

Ответы
Mastermastack Mastermastack  16.06.2020 19:24

uses crt;
var s,i:integer;
a:array[1..20] of integer;
begin
s:=0;
for i:=1 to 20 do
begin

a[i]:=random(100)+100;
if a[i] mod 2 =0 then
s:=s+a[i];

end;

writeln(s);
readln;
end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
kpucmuna2005 kpucmuna2005  25.07.2019 13:50
Составить программу вычисления значений функции y = f (x) на промежутке la, bl с шагом h (на языке basic) x^2- 4sin (x) a=0 b=2 h=0.16...
morozovnikitamotop morozovnikitamotop  25.07.2019 13:50
Задать с оператора цикла следущие действия : 1) найти сумму натурального рода числа от 1 до 100. 2)в цикле выпечатать на экран промежуточные значения сумм. построить блок схему...
Нияз2014 Нияз2014  25.07.2019 13:50
Составьте программу,по которой компьютер десять раз запросит ввод любых чисел и в результате выведет среднее арифметическое значение введенных чисел (массив не использовать).сделайте...
кируськаномер1 кируськаномер1  25.07.2019 13:50
Написать таблицу перевода расстояний из дюйма в сантиметр для значений от 1 до 10 дюймов с шагом 1....
Ева671 Ева671  17.10.2020 22:54
Что такое винчестер в компьютере? * микропроцессоргибкий дискCD-дискжесткий дискDVD-диск​...
nika032009003 nika032009003  17.10.2020 22:55
Сор информатика пятый класс первая четверть​...
anyasaveleva2 anyasaveleva2  17.10.2020 22:55
Які властивості впливають на вибір конфігурації комп ютера​...
минам2003 минам2003  17.10.2020 22:56
Кэш жады это жедел жады или тұрақты жады​...
пмпсасрчвчврсв пмпсасрчвчврсв  07.09.2019 06:10
Какова роль процессора? чем характеризуется производительность процессора?...
Help102 Help102  07.09.2019 06:10
Составь список объектов, по алфавиту: 1. список учебников в твоем портфеле. 2. список знакомых частей речи. 3.список действий....

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