Нужна программа ** языке программирования Pascal.Дана матрица А[8,8] четных чисел...

Question

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

Answer 1

Значит так...очередная нудная программа с простым алгоритмом.

Печатает начальный массив, потом диагональ(в уже измененном массиве), потом новый массив, потом число элементов 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<br>     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.