Ребят,срочно нужна ваша помощь,в информатике ноль,а задали такое задание,либо первый либо второй вариант

1

Ответы и объяснения

2013-12-20T23:21:32+04:00
1. program primer;
const n=212;
var
a:array[1..n] of  integer;
d,s,k:integer;
begin
randomize;
for i:=1 to n do begin
a[i]:=random(1000);
end;
for i:=1 to n do begin
d:=d+a[i];
writeln('сумма чисел равна',d);
end;
for i:=1 to n do
if a[i]<0 then s:=s+1 else k:=k+1;
writeln('Количество положительных ',s,' количество отрицательных ', k);
readln
end.