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

July 2022 1 5 Report

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

Answers & Comments

sansanic Var
a: integer; //a - вводимое число
n, s: integer; //n- количество введенных чисел, s - сумма этих чисел

begin
n:= 0; //обнуляем счетчик
s:= 0;
a:= 1; {присваиваем значение, отличное от нуля, чтобы цикл не завершился, не начавшись}
while a <> 0 do
begin
writeln('Введите целое число');
readln(a);
if a <> 0 then //Чтобы при подсчете среднего арифметического не учитывался 0
begin
n:= n + 1;
s:= s + a;
end;
end;
writeln('Среднее арифметическое введенных чисел: ', s / n);
end.

Answers & Comments

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