Предмет:
ИнформатикаАвтор:
amigogonzalez
var mas:array[1..10] of integer;
i,kolvo:integer;
b:real;
begin
writeln('Введите 10 целых чисел: ');
for i:=1 to 10 do
begin
read(mas[i]);
kolvo:= kolvo+1;
if (mas[i]=0) then kolvo:= kolvo-1;
end;
for i:=1 to 10 do
begin
b:=mas[i] + b;
end;
b:= b/kolvo;
writeln('Количество ненулевых чисел= ', kolvo);
writeln('Среднее арифметическое ненулевых чисел= ', b);
end.
Автор:
oompa loompaДобавить свой ответ
Предмет:
ФизикаАвтор:
simonschultzОтветов:
Смотреть
Предмет:
Русский языкАвтор:
babssbhsОтветов:
Смотреть
Предмет:
МатематикаАвтор:
abrahamОтветов:
Смотреть