Подчеркните правильный ответ. Какая информация может быть организована в табличной форме? Текст...

ответ : текст, графика, числа.

Program znanija_com;
const
  n = 5;
  m = 5;
  rnd = 9;
type
  tArray = array[1..n, 1..m] of integer;
var
  arr : tArray;
  i,j, sum_ch, sum_nch, sum_diag, max_num, max_index_1, max_index_2 : integer;
begin
  randomize;
  writeln ('Исходная матрица:');
  for i:=1 to n do begin
    for j:=1 to m do begin
      arr[i,j] := random(rnd);
      if arr[i,j] mod 2 = 0 then sum_ch := sum_ch + 1
        else sum_nch := sum_nch + 1;
      write(arr[i, j], ' ');
    end;
    writeln();
  end;
  for i:=1 to n do
    sum_diag := sum_diag + arr[i,i];
  max_num := arr[1,1];
  max_index_1 := 1;
  max_index_2 := 1;
  for i:=1 to n do begin
    for j:=1 to m do begin
      if arr[i, j] > max_num then begin
        max_num := arr[i, j];
        max_index_1 := i;
        max_index_2 := j;
      end;
    end;
  end;
  writeln('Колечество четных элементов равно ', sum_ch);
  writeln('Колечество нечетных элементов равно ', sum_nch);
  writeln('Сумма главной диаганили равна ', sum_diag);
  writeln('Максимальное число равно ', max_num, ' Находится [',max_index_1, ', ', max_index_2, ']');
  readln();
end.

//Pascal ABC.NET v3.1 сборка 1172

var
  ar: array of integer;
  n, k2, k3, k4, k5, i: integer;
  r: real;

begin
  write('Сколько учеников?');
  readln(n);
  setlength(ar, n);
  writeln('Введите оценки:');
  for i := 0 to n - 1 do
  begin
    readln(ar[i]);
    case ar[i] of
      2: inc(k2);
      3: inc(k3);
      4: inc(k4);
      5: inc(k5);
    else
      writeln('Не оценка');
      exit;
    end;
  end;
  writeln('2:', k2);
  writeln('3:', k3);
  writeln('4:', k4);
  writeln('5:', k5);
  write('Успеваемость=', (k3 + k4 + k5) / n * 100:0:1);
end.

Пример ввода:
Сколько учеников?6
Введите оценки:
2
2
3
4
5
5
Пример вывода:
2:2
3:1
4:1
5:2
Успеваемость=66.7