помогите написать программу - Форум ПРОГРАММИСТОВ

Страница 1 из 1 1
Модератор форума: Berestovskiy

помогите написать программу

Найти количество четных элементов матрицы F(6,4)

№1 | Автор: Tolian92 | 2011-12-07, 19:16 | Репутация: [ + 1 ]

var
i,j,a,q:integer;
begin
for i:=1 to 6 do
for j:=1 to 4 do begin
read(a);
if a>0 then q:=q+1;end;
writeln(q);
end.

Нужна помощь? Сюда: vkontakte.ru/berestovskiy

№2 | Автор: Berestovskiy | 2011-12-08, 09:51 | Репутация: [ + 211 ]

Четных, а не положительных :)
Вместо

Code

a>0

Надо

Code

a mod 2= 0

№3 | Автор: bfbg | 2011-12-08, 11:27 | Репутация: [ + 5 ]

Солидарен)
Автор - сорри)

Нужна помощь? Сюда: vkontakte.ru/berestovskiy

№4 | Автор: Berestovskiy | 2011-12-08, 22:57 | Репутация: [ + 211 ]

прикладная математика