Вопрос по информатике:
Написат программу для вычисления суммы четных элементов заданного массива А состаяшего из 20 ти елементов
Пожаловаться
- 02.12.2017 20:09
- Информатика
- remove_red_eye 5262
- thumb_up 47
Ответы и объяснения 1
//FPC 2.6.4
const N = 20;
var
a: array[0..N-1] of integer;
i, count: integer;
begin
randomize;
count:=0;
for i:=0 to N-1 do
begin
a[i]:=random(31)-15;
write (a[i], '; ');
if a[i] mod 2 = 0 then inc (count, a[i]);
end;
writeln;
writeln (count);
readln;
end.
const N = 20;
var
a: array[0..N-1] of integer;
i, count: integer;
begin
randomize;
count:=0;
for i:=0 to N-1 do
begin
a[i]:=random(31)-15;
write (a[i], '; ');
if a[i] mod 2 = 0 then inc (count, a[i]);
end;
writeln;
writeln (count);
readln;
end.
Пожаловаться
- 03.12.2017 14:54
- thumb_up 4
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы