Тест по информатике 9 класс - вопрос №180420909 от NastiLife 31.08.2022 13:08

Question

Информатика: Тест по информатике 9 класс

NastiLife · Answer

var a: array[1..999] of integer;
n, sp, so, kp, ko: integer;
begin
read(n);
for var i := 1 to n do begin
a[i] := random(-9, 9);
write(a[i], ' ');
if a[i] > 0 then begin
sp += a[i];
kp += 1;
end;
if a[i] < 0 then begin
so += a[i];
ko += 1;
end;
end;
writeln;
writeln('Среднее арифметическое положительных чисел = ', sp/kp);
writeln('Среднее арифметическое отрицательных чисел = ', so/ko);
end.