Программа на паскале дано 10 чисел найти среднее арифметическое всех чисел, потом положительных, потом отрицательных. for var i:=1 to 10 do

var i, n, sum, sum_1, count_1, sum_2, count_2:integer;

begin

for i:=1 to 10 do begin

readln(n);

sum = sum + n;

if n >= 0 then begin

sum_1 = sum_1 + n;

count_1 = count_1 + 1;

end;

if n < 0 then begin

sum_2 = sum_2 + n;

count_2 = count_2 + 1;

end;

end;

writeln('Среднее всех чисел: ', sum/10);

writeln('Среднее всех положительных чисел: ', sum_1/count_1);

writeln('Среднее всех отрицательных чисел: ', sum_2/count_2);

end.

@np.rayzer:[DAA520] ★ ♫ ✿

444 444 444

У арабов взял)@np.rayzer:[DAA520] ★ ♫ ✿

444 444 444

У арабов взял)@np.rayzer:[DAA520] ★ ♫ ✿

444 444 444

У арабов взял)@np.rayzer:[DAA520] ★ ♫ ✿

444 444 444

У арабов взял)@np.rayzer:[DAA520] ★ ♫ ✿

444 444 444

У арабов взял)@np.rayzer:[DAA520] ★ ♫ ✿

444 444 444

У арабов взял)@np.rayzer:[DAA520] ★ ♫ ✿

444 444 444

У арабов взял)@np.rayzer:[DAA520] ★ ♫ ✿

444 444 444

У арабов взял)@np.rayzer:[DAA520] ★ ♫ ✿

444 444 444

У арабов взял)@np.rayzer:[DAA520] ★ ♫ ✿

444 444 444

У арабов взял)@np.rayzer:[DAA520] ★ ♫ ✿

444 444 444

У арабов взял)

В древности дикорастущий папирус был распространён

в долине Нила, ныне же он почти вывелся.

При изготовлении писчего материала стебли

папируса очищались от коры и разрезались вдоль.

Получившиеся полоски раскладывали внахлест на

ровной поверхности. На них выкладывали под прямым

углом еще один ряд полосок и помещали под пресс.

После сушки лист папируса отбивали молотком. Затем

получившиеся листы папируса склеивались в свитки (а

в более позднее время соединялись в книги

Объяснение:

лайк нажмите и лучшее ответ