Представление информации с некоторого кода - (1 слово)

      кодирование

Ввод матрицы в ручнуюconst n = 5; m = 5; {n-строка, m-столбец} var a: array [1..n, 1..m] of real;     i, j: integer; begin   for i : = 1 to n do for j : = 1 to m do     begin       write('a[', i, ', ', j, '] = ');       readln(a[i,j])     end;   writeln('исходный массив: ');   for i : = 1 to n do     begin       for j : = 1 to m do write(a[i,j]: 10: 2);       writeln     end;   writeln('главная диагональ массива а: ');   for i : =1 to n do write(a[i, i]: 10: 2);   writeln;   readln; end.

Первый кратный элемент заменяется на 0 const      n = 10;   var    a : array [1..n] of integer;       i,m : integer;           begin   for i : = 1 to n do      a[i] : = i;                     m : = 0;     i : = 1;   while (m = 0)   and (i< =n) do      begin        if a[i] mod 3 = 0 then        begin          a[i] : = 0;           m : = 1;           end ;         i : = i +1;       end;         for i : = 1 to n do      writeln (a[i]);     end.