Aurilmeena
7 год назад
Введите элементы массива а[1..10] с клавиатуры и вычислите количество элементов с четными положительными значениями
ОТВЕТЫ
Чемоданов
Jul 12, 2019
Var a:array [1..10] of integer;
i,n:integer;
begin
n:=0;
writeln(Введите числа);
for i:=1 to 10 do begin
readln(a[i]);
if (a[i]mod 2 =0)and(a[i]gt;0) then
n:=n+1;
end;
writeln(n=,n);
end.
(Если ответ Вас удовлетворяет, не забудьте отметить решение, как лучшее)
i,n:integer;
begin
n:=0;
writeln(Введите числа);
for i:=1 to 10 do begin
readln(a[i]);
if (a[i]mod 2 =0)and(a[i]gt;0) then
n:=n+1;
end;
writeln(n=,n);
end.
(Если ответ Вас удовлетворяет, не забудьте отметить решение, как лучшее)
110
Смежные вопросы:
