Дан произвольный двумерный массив целых чисел.найти максимальный элемент кратный 3 в этом массиве

program vigod; uses crt; const  n = 12;   m = 13; var  a: array[1..n,1..m] of integer;   i, j, max: integer; begin  writeln('*** alphaues is ***');   writeln('***                  ok                        ***');   {заполняем массив случайными числами}  randomize;   for i: =1 to n do      for j: =1 to m do          begin              a[i,j]: =random(101)-50;               if a[i,j] mod 3 = 0 then max: =a[i,j];           end;   {находим нужный элемент и выводим массив}  for i: =1 to n do      begin          for j: =1 to m do          begin              if (a[i,j] mod 3 = 0) and (a[i,j]> max)then                  max: =a[i,j];               write(a[i,j]: 4);           end;           writeln();       end;     writeln();     writeln('максимальный элемент кратный 3, равeн ',max); end.проверено - работает на паскаль авс

Японял и написал программу: uses crt; const n=25; type mas=array [1..n] of integer; var    i, col: integer;             a: mas; begin   clrscr;   randomize;   col: =0;   writeln(' massiv a: ');   for i: =1 to n do     begin             a[i]: =10+random (90);             write(a[i]: 3);             if (a[i] mod 2=0) then col: =col+1;     end;     writeln; writeln;     writeln(' col = ', col);   readln; end.

Вариант с процедурой delete var   s: string;   k: integer; begin   write('введите слово: '); readln(s);   write('какую по порядку букву удалить? '); read(k);   delete(s,k,1);   writeln('результат: ',s) end. вариант с функцией copy var   s: string;   k,n: integer; begin   write('введите слово: '); readln(s);   write('какую по порядку букву удалить? '); read(k);   n: =length(s);   s: =copy(s,1,k-1)+copy(s,k+1,n-k);   writeln('результат: ',s) end. вариант с циклами var   s,s1: string;   k,i,n: integer; begin   write('введите слово: '); readln(s);   write('какую по порядку букву удалить? '); read(k);   n: =length(s);   s1: ='';   for i: =1 to k-1 do s1: =s1+s[i];   for i: =k+1 to n do s1: =s1+s[i];   writeln('результат: ',s1) end. тестовое решение (одинаково для всех вариантов): введите слово: таракан какую по порядку букву удалить? 4 результат: таркан блок-схемы всех вариантов находятся во вложениях