Question

Se citesc 4 numere intregi sa se determine daca este printre ele 3 nr pozitive. Limbajul Pascal

Answer 1

Var a:array[1..4]of integer;

i:integer;

count:byte;

begin

Count:=0;

for i:=1 to 4 do begin

write('introduceti a[',i,']=');Readln(a[i]);

If a[i]>=0 then count:=count+1;

end;

end.