Елена Колесник
Елена Колесник

Количество четных элементов в векторе из 10 компонентов. (Turbo Pascal) Помогите, пожалуйста, составить программу.

(Turbo Pascal) Помогите, пожалуйста, составить программу.

Анна Самохвалова
Анна Самохвалова

С точностью до грамматики.
var
a: array [1..10] of integer;
i,c:integer;
begin
c:=0;
for i := 1 to 10 do
begin
if a [ i ] mod 2 = 0 then c:=c+1;
end;
writeln(c) ;
end.

Похожие вопросы
Помогите составить программу (Turbo pascal)
помогите пожалуйста с написанием программы в Turbo Pascal
Составить программу по блок-схеме. Turbo Pascal
Составить программу. Turbo Pascal
составить программу "массив" для Turbo Pascal вставка массив элемента, а все остальные элементы сдвигаются вправо
Помогите составить программу на Turbo Pascal
Помогите написать программу (10) в Turbo Pascal
Помогите составить программу в Turbo Pascal.
Turbo Pascal. Массив. Найти минимальный четный элемент массива и т.д.
Помогите составить программу в Turbo Pascal