Создать и вывести 11 элементный массив ,содержащий ,положительные и отрицательные числа, подсчитать количество отрицательных элементов массива. -информатика 10 класс ,вместе с блок схемой .

1.V=24*2=48 байт = 384 бита

2.192 символа на стр- 30720 символов. Мощность алфавита 256 - значит в алфававите 256 знаков. 2 в степени восемь - равно 256.весь алфавит можно закодировать одним байтом (в одном байте - как раз восемь бит, степень двойки. Бит - принимает ДВА значения - 0 и 1 - отсюда основание 2, которое возводим в восемь :) ) на каждый символ текста надо потратить один байт памяти. Итого получаем 30720 БАЙТ. в одном КИЛОБАЙТЕ 1024 байта. Делим 30720 на 1024 получаем 30 КБайт.

3.в 2 раза уменьшился

4

1024000/8=128000 (перевели в байты) 

128000/1024=125кбайт/сек (перевели в килобайты) 

125*5= 625 килобайт

5.

всего используется 12 букв + 10 цифр = 22 символа 

для кодирования 22 вариантов необходимо использовать 5 бит, так как , т.е. 4 бит не хватит (они позволяют кодировать только 16 вариантов), а 5 уже достаточно 

таким образом, на каждый символ нужно 5 бит (минимально возможное количество бит) 

полный номер содержит 6 символов, каждый по 5 бит, 30 бит один номер. 

по условию каждый номер кодируется целым числом байт (в каждом байте – 8 бит), поэтому требуется 5 байт на номер ( ), 4 байтов не хватает, а 5 – минимально возможное количество 

на 32 номеров нужно выделить 160 байтов приблизительно 192байта 

правильный ответ – 160байт...т.к 32*5=160 или приблизетельно 192байта.

Объяснение:

В разделе var нужно описать переменную max.

Program Runa;

const
  n=5;
  m=5;

var   
  A:array[1..n,1..m] of real;
  i,j: integer;
  max: real;
begin
  writeln('матрица A(5x5)');
  {Считываем матрицу с экрана}
  for i:=1 to n do
    for j:=1 to m do
    begin
      write ('A[ ',i,',',j,' ] = ');
      readln (A[i,j]);
    end;
  {Присваиваем минимальное значение максимуму}   
  max:=0;   
  for i:=1 to n do
    for j:=1 to m do
      {Если в матрице число больше максимума - присваиваем максимуму значение из матрицы}
      if (a[i,j]>max) then max:=a[i,j];
     
  {Если максимум не 0 - значит в матрице есть положительные числа, выводим максимум}   
  if max>0 writeln ('max= ',max) else
    Writeln('Положительных элементов нет');
end.