Предмет: Информатика,
автор: gavrelenkov
Помогите пожалуйста! Составить программу какая вводит с клавиатуры элементы массива от 1 до 10 и высчитывает количество элементов с четными значениями
Ответы
Автор ответа:
0
var
n,i: integer;
a: array [1..10] of integer;
begin
n:=0;
for i:=1 to 10 do
begin
read (a[i]);
if a[i] mod 2=0 then n:=n+1;
end;
writeln ('четных значений -',n);
end.
Интересные вопросы
Предмет: Английский язык,
автор: sanzhar19830511
Предмет: Қазақ тiлi,
автор: jeffw6481
Предмет: Алгебра,
автор: erikagarieva6
Предмет: История,
автор: Krukova25
Предмет: Биология,
автор: вера2607