USES CRT; VAR A:array[1..3,1..3] of integer; i,j,s,summa:integer; sred:real; BEGIN CLRSCR; Randomize;
summa:=0; s:=0; {Заполняем массив случайными числами от 0 до 15 и выводим на экран} For i:=1 to 3 do begin For j:=1 to 3 do begin A[i,j]:=Random(15); Write(' ',A[i,j]:2,' '); end; Writeln; end;
{находим общую сумму всех элементов массива } For i:=1 to 3 do For j:=1 to 3 do begin summa:=summa+A[i,j]; s:=s+1; end;
#1 Статья набранная на компьютере содержит 8 страниц по 40 строк, в 1 строке 64 символа,определите информационный объем статьи в КБ, в кодировке Unicode. Решение: В кодировке Unicode, в распространенной версии один символ кодируется 2 байтами, т.е. 16 битами. Т.е. мы умножаем весь объём:8*40*64*16=327680 (бит) - объём статьи Теперь необходимо полученную величину в битах перевести в Кб. 1 байт = 8 бит 1 кб = 1024 байт Поэтому мы в начале переводим в байты, а далее в Кб: 327680:8:1024=40 Кб ответ: 40 Кб - объем статьи
#2 Определите информационный объем слова из 24 символов, в кодировке Unicode. Решение: Как и было сказано выше, в данной кодировке 1 символ = 16 бит Тогда мы 24*16=384 бит - объём слова ответ: 384 бит или 48 байт.
#3 Определите объем сообщения в символе из 20 символов в кодировке КОИ-8. Решение: В кодировке КОИ-8 каждый символ = 1 байту, или 8 битами. Тогда 8 * 20 = 160 бит - объем сообщения ответ: 160 бит или 20 байт.
VAR A:array[1..3,1..3] of integer;
i,j,s,summa:integer;
sred:real;
BEGIN
CLRSCR;
Randomize;
summa:=0;
s:=0;
{Заполняем массив случайными числами от 0 до 15 и выводим на экран}
For i:=1 to 3 do
begin
For j:=1 to 3 do
begin
A[i,j]:=Random(15);
Write(' ',A[i,j]:2,' ');
end;
Writeln;
end;
{находим общую сумму всех элементов массива }
For i:=1 to 3 do
For j:=1 to 3 do
begin
summa:=summa+A[i,j];
s:=s+1;
end;
Writeln;
Writeln(' ',summa,' ',s);
Writeln;
{Находим средне арифметическое число массива}
sred:=summa/s;
Writeln(' ',Средне арифметическое = ',sred:2:1);
s:=0;
{считаем количество элементов превышающих среднее значение}
For i:=1 to 3 do
For j:=1 to 3 do
if sred<A[i,j] then s:=s+1;
Writeln;
Writeln(' ',s,' элементов массива превышающие средне арифметическое');
READLN;
END.