Введите элементы массива а[1..10] с клавиатуры и вычислите количество элементов с четными положительными значениями.

nyamnov nyamnov    2   14.08.2019 21:10    1

Ответы
helppliz5 helppliz5  04.10.2020 19:36
На Pascal:

program znanija;

var
  a: array [1..10] of integer;
  number, i: integer;

begin
for I := low(a) to high(a)do
begin
  read(a[I]);
  if (a[I] > 0) and (a[I] mod 2 = 0) then
    inc(number);
end;
writeln(number);
end.
Таки да, пиши, на каком языке тебе нужен ответ!
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика