Составьте и запишите на АЯ алгоритм для:
- хранения оценок по информатике за четыре четверти одного учащегося;
- определения среднего по информатике этого учащегося.
Требования к алгоритму:
- используйте структуру цикла с параметром;
- параметр цикла - переменная j;
- имя алгоритма - ОЦЕНКИ;
- имя массива INFORM;
- имя переменной для хранения среднего - SR;
- количество элементов массива определите самостоятельно.

1.
0,5 Кбайт = 0,5*1024 байт = 512*8 бит
512*8/128 = 32

2.
Память для одного символа = log(2)64=6 бит
Объем текста = 10*32*64*6 бит = 10*32*64*6/8 байт =
10*4*64*6/1024 Кбайт = 15 Кбайт

3.
3 Кбайт = 3*1024 байт = 3*1024*8 бит
Память для одного символа = 3*1024*8/6144 = 4 бита
Количество символов в алфавите = 2^4 = 16

4.
Память для одного символа = log(2)128=7 бит
Объем сообщения = 10*7 = 70 бит

8.
a) 3 Кбайт=3*1024 Байт = 3072 бАЙТ
b) 2 Мбайт=2*1024 Кбайт = 2*1024*1024 байт = 2*1024*1024*8 бит = 16777216 бит
c) 4,5 Гигабайт=4,5*1024 Мбайт = 4,5*1024*1024 Кбайт = 4718592 Кбайт

1)
const
  N = 5;//Размерность массива

var
  m: array[1..N] of integer;

begin
  var pr := 1;
  for var i := 1 to N do
  begin
    read(m[i]);
    if m[i] <> 0 then pr := pr * m[i];
  end;
  writeln(pr);
end.

Пример:
Входные данные:
1 2 3 0 5
Выходные данные:
30

2)
const
  N = 3;//Размерность матрицы

var
  m: array[1..N, 1..N] of integer;
  i, j: integer;
  rec: record
    mmax: integer = -(maxint);
    ind: record
      i: integer;
      j: integer;
    end;
  end;

begin
  for i := 1 to N do
    for j := 1 to N do
    begin
      read(m[i, j]);
      if abs(m[i, j]) > rec.mmax then begin
        rec.mmax := abs(m[i, j]);
        rec.ind.i := i;
        rec.ind.j := j;
      end;
    end;
  writeln('Максимальный по модулю элемент матрицы ', rec.mmax, '(', rec.ind.i, ';', rec.ind.j, ')');
end.

Пример:
Входные данные:
1 2 3
4 5 -9
7 8 6
Выходные данные:
Максимальный по модулю элемент матрицы 9(2;3)