Эклео
Const n=11; var a: array[1..n] of integer; k: integer; i: byte; begin randomize; k:=0; for i:=1 to n do begin; a[i]:=random(-5,5); write (a[i]:4); if (a[i]>=0) and (a[i] mod 2 =0) then k:=k+1 end; writeln; writeln (k); end. ----------------------------------------- Пример: -3 5 -5 1 2 -4 -1 -5 5 0 -4 2
Answers & Comments
var
a: array[1..n] of integer;
k: integer;
i: byte;
begin
randomize;
k:=0;
for i:=1 to n do begin;
a[i]:=random(-5,5);
write (a[i]:4);
if (a[i]>=0) and (a[i] mod 2 =0)
then k:=k+1
end;
writeln;
writeln (k);
end.
-----------------------------------------
Пример:
-3 5 -5 1 2 -4 -1 -5 5 0 -4
2