Регистрация
LaiZyHero
22.02.2021 08:53
Информатика
Есть ответ 👍

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

237
371
Посмотреть ответы 2

Ответы на вопрос:

Serega1418
Serega1418
4,6(23 оценок)

program test;

var i,k:integer;

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

begin

k:=0;

for i:=1 to 10 do

begin

write ('a[',i,'] = ');

readln (a[i]);

if a[i] mod 2 = 0 then k:=k+1

end;

writeln;

writeln ('В массиве ',k,' элементов являются чётными числами')

end.

kntalya
kntalya
4,5(22 оценок)
Var a,b,i,kratnoe,n,s: int64; begin read (a,b,kratnoe); s: =0; for i: =a to b do if (i mod kratnoe=0) then s: =s+i; write(s); end.

Популярно: Информатика