Паскаль: Дана последовательность целых чисел, ввод последовательности заканчивае...

July 2022 1 6 Report

Паскаль: Дана последовательность целых чисел, ввод последовательности заканчивается 0 (до первого введенного нуля), найти среднее арифметическое чисел из последовательности

Answers & Comments

nelle987

Verified answer

Var temp, sum, n:integer;
begin
  sum:=0;
  n:=0;
  read(temp);
  while(temp>0) do
  begin
inc(sum,temp);
inc(n);
read(temp);
  end;
writeln;
writeln(sum/n)
end.

2 votes Thanks 1

Answers & Comments

Verified answer

srochnosostavit programmukolichestvo chisel zadaetsya polzovatelemchtoby najt

blok shemaizvesten rost peti i vasi kto vyshe

pozhalujsta sostavit prevrasheniya caco3gtcaogtcacl2gtca3po42 hotya b

pomogite kto chem smozhet na2ogtnano3 naohna2so4 vsem zaranee spasibo

sostavit uravneniya reakcii 1 sio2 gt si 2 si gt sio2 3 si gt

rebyat pomogite pozhalujsta sopostavit pisma onegina i tatyany iz evgeniya oneg

256 mbajt v bit v stepeni dvojki

vypolnit prevrashenie 1 kaloh4 gtaloh3 2 aloh3 gtal2o3

dano n chisel soschitat kolichestvo chisel kotorye menshe 15 najti summu kratny

vypolnit prevrasheniya 1 iz kaloh4 gtpoluchit aloh3 2 iz aloh3

рекомендуемые вопросы

Helpful Links

Helpful Social