Program n1; var a: array[1..20] of integer; var k,i: integer; begin k:=0; write('массив: '); for i:=1 to 20 do begin a[i]:=random(221)-100; write(a[i],' '); end; writeln; for i:=1 to 20 do if a[i]>=0 then k:=k+1; write('кол-во неотриц. элементов: ',k); end.
// Внимание! Если программа не работает, обновите версию!
begin
var p:=ArrRandom(20,-100,120); p.Println;
Writeln('Неотрицательных: ',p.Where(x->x>=0).Count)
end.
Пример
-76 -47 101 31 119 109 -11 1 113 114 40 34 13 51 49 88 21 38 -58 -100
Неотрицательных: 15
var a: array[1..20] of integer;
var k,i: integer;
begin
k:=0;
write('массив: ');
for i:=1 to 20 do begin
a[i]:=random(221)-100;
write(a[i],' ');
end;
writeln;
for i:=1 to 20 do if a[i]>=0 then k:=k+1;
write('кол-во неотриц. элементов: ',k);
end.