М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
MATVEYPRO26
MATVEYPRO26
08.01.2021 08:56 •  Информатика

Сообщение занимает 6 страниц по 40 строк, в каждой строке записано по 60 символов. информационный объём всего сообщения равен 9000 байтами. каков информационный вес одного символа? сколько символов в алфавите языка, на котором записано это сообщение. заранее !

👇
Ответ:
Vsevolod20141
Vsevolod20141
08.01.2021
6*40*60 = 14400
14400\9000 = 1.6
ответ : вел одного символа =1.6 байта
4,5(92 оценок)
Открыть все ответы
Ответ:
milenabalayan
milenabalayan
08.01.2021
Const
  m = 4;
  n = 3;

var
  a: array[1..m, 1..n] of integer;
  i, j, im, jm, mx, e: integer;

begin
  Randomize;
  mx := -1000;
  for i := 1 to m do
  begin
    for j := 1 to n do
    begin
      a[i, j] := Random(100) - 50;
      e := abs(a[i, j]);
      if mx < e then begin
        mx := e; im := i; jm := j
      end;
      write(a[i,j]:4)
    end;
    writeln
  end;
  writeln;
  writeln('Максимальный по модулю элемент a[', im, ';', jm, ']=', mx)
end.

Тестовое решение:

 -12 -36 -41
   7 -45  12
 -23  48   0
  -1  31  14

Максимальный по модулю элемент a[3;2]=48
4,6(68 оценок)
Ответ:
strongbaltaevowj0hz
strongbaltaevowj0hz
08.01.2021
6)
const n=10;
var a: array[1..n] of integer;
i,max,min : integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do begin
a[i]:=random(21);
write(a[i]:3);
end;
writeln;
max:=a[1]; min:=a[1];
for i:=2 to n do
begin
if a[i] > max then max:=a[i];
if a[i] < min then min:=a[i];
end;
writeln('L = ',max-min);
end.

Пример:
Исходный массив:
10 8 8 6 4 16 18 10 11 13
L = 14

9)
const n=10;
var a: array[1..n] of real; 
  i,k1,k2 : integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do begin
 a[i]:=10*random-5;
 write(a[i]:5:2);
 end;
writeln;
k1:=0; k2:=0;
for i:=1 to n do
 if a[i]>0 then k1:=k1+1
  else if a[i]<0 then k2:=k2+1;
writeln('Положительных: ',k1,', отрицательных: ',k2,' нулевых: ',n-k1-k2);
end.

Пример:
Исходный массив:
-1.03 2.79-3.60 0.33-3.69-4.69-2.34-4.19 1.20 1.74
Положительных: 4, отрицательных: 6 нулевых: 0

16)
const n=10;
var a: array[1..n] of real; 
  i : integer;
begin
for i:=1 to n div 2 do begin
 a[i]:=i;
 a[n div 2+i]:=sin(a[i]);
 end;
for i:=1 to n div 2 do
  writeln(a[i]:4:1,a[n div 2+i]:6:2);
end.

Пример:
1.0 0.84
2.0 0.91
3.0 0.14
4.0 -0.76
5.0 -0.96

19)
const n=10;
var a: array[1..n] of integer; 
  i: integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do begin
 a[i]:=random(51);
 write(a[i]:5);
 end;
writeln;
writeln('Выбранные элементы:');
i:=1;
while i<=n do
 begin
 write(a[i],' ');
 i:=2*i;
 end;
end.

Пример:
Исходный массив:
8 38 22 45 36 23 21 13 5 13
Выбранные элементы:
8 38 45 13
4,7(72 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ