А массив тут и не нужен. Накапливаем сумму и подсчитываем количество введенных чисел. Их этих двух величин получаем среднее.

var
m,n,s:integer;
begin
s:=0; n:=0;
repeat
Read(m);
if m<>0 then begin s:=s+m; n:=n+1 end
until m=0;
if n>0 then Writeln(s/n)
else Writeln('Ничего не введено')
end.

0 0

4 года назад

В одном из изданий книги М.А.Булгакова " МАСТЕР И МАРГАРИТА" 256 страниц. КАкой объём памяти ( в МБАЙТАХ) заняла бы это книга, е

Юра1233231

I = 64*64*16*256 - в битах
I = (64*64*16*256)/8 - в байтах
I = (64*64*16*256)/(8*1024) - в Кбайтах
I = (64*64*16*256)/(8*1024*1024) = 2 - в Мбайтах.

0 0

4 года назад

Задание 3. Зарисуйте схемы для данных формул, постройте таблицы истинности не ( не У и не Х ) и Z

MrSun

Таблица истинности и две схемы - для заданной и упрощенной формулы

не ( не У и не Х ) и Z = ! ( !Y & !X) & Z = (Y + X) & Z

0 0

4 года назад