Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: 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 ]
3 | Автор: bfbg | 2011-12-08, 11:27   |  Репутация: [ + 5 ]
Солидарен)
Автор - сорри)


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
4 | Автор: Berestovskiy | 2011-12-08, 22:57   |  Репутация: [ + 211 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » помогите написать программу (пожалуйста)
Страница 1 из 11
Поиск: