Одномерный массив: проверить, все ли значения положительные и чётные

@MadCactus · Регистрация: 02.05.2014

Author24 — интернет-сервис помощи студентам

Дан цело численный массив из 40 элементов. Элементы массива могут принимать значения от -10000 до 10000.Программа должна проверить, все ли значение положительные И чётные, если да, то программа пишет "YES", если нет то "NO".
Вот что дано:

Pascal

const
n=40;
var
i,j,k:integer;
a:array[1..n] of integer;
begin 
  for i:=1 to n do
  readln(a[i]);
 
end.

@volvo · 24.05.2015, 16:51

Pascal

1
2
3

var Ok : boolean := true;
for i := 1 to n do Ok := Ok and (a[i] > 0) and not odd(a[i]);
if Ok then writeln('yes') else writeln('no');

@MadCactus · 24.05.2015, 17:03 **[ТС]**

Вот полный ответ, если кому надо:

Pascal

const
n=40;
var
i:integer;
a:array[1..n] of integer;
k:boolean:=true;
begin
for i:=1 to n do
  readln(a[i]);
 for i := 1 to n do 
 k:=k and (a[i]>0) and (not odd(a[i]));
if k then writeln('yes') else writeln('no'); 
  end.

	24.05.2015, 17:03