Нужна программа на языке программирования pascal. дана матрица а[8,8] четных чисел натурального ряда (от 2 до 128). 1)заполнить и записать матрицу. 2)определит число элементов больших 18 и меньших 60. заменить их на 0.затем записать получившуюся матрицу. 3)определить произведение главной диагонали и вывести эти элементы на экран. 4)реализовать определение суммы элементов любого столбца.

Значит нудная программа с простым алгоритмом. печатает начальный массив, потом диагональ(в уже измененном массиве), потом новый массив, потом число элементов 19..59, произведение диагонали, сумму элементов столбца s. program test; uses crt; var   arr: array[1..8,1..8] of integer;   i,j,cou,pr,s,sum: integer; begin   clrscr;   randomize;   pr: =1;   s: =7;   for i: =1 to 8 do   begin     for j: =1 to 8 do       begin         arr[i,j]: =random(127)+2;         write(arr[i,j],' ');       end;     writeln;   end;   writeln;   for i: =1 to 8 do   for j: =1 to 8 do     begin       if (arr[i,j]> 18) and (arr[i,j]< 60) then         begin           cou: =cou+1;           arr[i,j]: =0;         end;       if i=j then         begin           pr: =pr+arr[i,j];           write(arr[i,j],' ');         end;       if j=s then         sum: =sum+arr[i,j];     end;   writeln; writeln;   for i: =1 to 8 do   begin   for j: =1 to 8 do     write(arr[i,j],' ');   writeln;   end;   writeln;   writeln(cou);   writeln(pr);   writeln(sum); readln; end.

5 - c 4 - c вроде так