Var i,sum:integer;
cp:real;
mass:array[1..6] of integer;
begin
for i:=1 to 6 do
begin
write('mass[',i,']=');
read(mass[i]);
sum:=sum+mass[i];
end;
writeln;
for i:=1 to 6 do
writeln('mass[',i,']=',mass[i]);
writeln;
writeln('Среднее арифметическое элементов массива равно ',sum/6:0:4);
end.<span>
</span>

0 0

4 года назад

Срочно нужна помощь прошу !!!!

Genafrted

Математика, информатика

0 0

4 года назад

Чему будет равна переменная sum после выполнения фрагмента программы: sum:=0; for i:=2 to 7 do sum:=sum+i;

13 Doctor Who [286]

Судя по всему это цикл, в начале i равно 2, цикл работает до 7.
0 + 2 = 2
2 + 3 = 5
5 + 4 = 9
9 + 5 = 14
14 + 6 = 20
20 + 7 = 27
Sum равна 27

0 0

4 года назад

Помогите решить 2 задачи по информатике :) 1) " В кодировке Unicode каждый символ кодируется 16 битами. Определите объем следующ

рамблер

1) 91 символов * 16 бит = 1 456 бит = 182 байт

2) 4.5*1024*8 бит / 16 бит = 2304 символа в тексте.
Вообще вопрос задан не корректно

0 0

1 год назад