Пожалуйста помоги, очень плохая оценка за четверть выходит, помогите с задачей
Answers & Comments
HRAshton
Var a: array[0..10] of integer; i, j, k: integer; begin for i := 0 to 10 do begin a[i] := random(90) - 45; writeln('[', i, '] => ', a[i]); end;
for i := 0 to 10 do if (a[i] < 0) then inc(j) else if (a[i] > 0) then inc(k); writeln(j, ' ', k); end.
Answers & Comments
i, j, k: integer;
begin
for i := 0 to 10 do
begin
a[i] := random(90) - 45;
writeln('[', i, '] => ', a[i]);
end;
for i := 0 to 10 do
if (a[i] < 0) then inc(j)
else if (a[i] > 0) then inc(k);
writeln(j, ' ', k);
end.
работает у меня:)