сообщение занимает 4 страницы по 64 строки и содержит 5120 байтов информации. сколько символов в строке если при составлении этого сообщения использовали 32-символьный алфавит

program Array8x5;

var

 A: array [1..8, 1..5] of Integer;

 i, j, imin, imax, jmin, jmax, s, smax: Integer;

begin

// 1. Заполнить матрицу из 8 строк и 5 столбцов случайными числами в интервале [-10,10] выведите ее на экран.

 Randomize;

 for i := 1 to 8 do begin

   WriteLn;

   for j := 1 to 5 do begin

     A [i, j] := Random (21) - 10;

     Write (A [i, j] :3, ' ');

   end;

 end;

// 2. Устроить все элементы матрицы и вывести ее на экран.

 WriteLn;

 for i := 1 to 8 do begin

   WriteLn;

   for j := 1 to 5 do begin

     A [i, j] := A [i, j] * 3;

     Write (A [i, j] :3, ' ');

   end;

 end;

// 3.Найти минимальный и максимальный элементы матрицы и их номера

 imin := 1;

 imax := 1;

 jmin := 1;

 jmax := 1;

 for i := 1 to 8 do begin

   for j := 1 to 5 do begin

     if A [i, j] > A [imax, jmax] then begin

       imax := i;

       jmax := j;

     end;

     if A [i, j] < A [imin, jmin] then begin

       imin := i;

       jmin := j;

     end;

   end;

 end;

 WriteLn; WriteLn;

 WriteLn ('минимальный элемент  А[', imin, ',', jmin, '] = ', A [imin, jmin]);

 WriteLn ('максимальный элемент А[', imax, ',', jmax, '] = ', A [imax, jmax]);

// 4.Вывести на экран строку, сумма элементов которой максимальна.

 imax := 1;

 smax := - MaxInt;

 for i := 1 to 8 do begin

   s := 0;

   for j := 1 to 5 do begin

     s := s + A [i, j];

   end;

   if s > smax then begin

     smax := s;

     imax := i;

   end;

 end;

 Write ('строка ', imax, ': ');

 for j := 1 to 5 do

   Write (A [imax, j], ' ');

 WriteLn;

 ReadLn;

end.

#include <iostream>

#include <time.h>

#include <iomanip>

using namespace std;

int main()

{

 int a[20];

 int i, ibeg, iend, s;

 setlocale(LC_ALL, "Russian");

 srand(time(NULL));

 for (i = 0; i < 20; i++) {

   a[i] = (double)rand() / (RAND_MAX + 1) * 10;

   cout << a[i] << " ";

 }

 ibeg = -1;

 for (i = 0; i < 20; i++) {

   if (a[i] == 0) {

     ibeg = i;

     break;

   }

 }

 iend = -1;

 for (i = 20; i > 0; i--) {

   if (a[i] == 0) {

     iend = i;

     break;

   }

 }

 if (ibeg != -1 && iend != -1) {

   s = 0;

   for (i = ibeg + 1; i < iend; i++)

     s += a[i];

   cout << "\nСумма = " << s << "\n";

 }

 else

   cout << "\nНулевые элементы не найдены.\n";

}