Решить задачку по Pascal

[TpaXmopucm]

Решить задачку по Pascal

Постановка задачи:
1. Написать программу, которая работает с любыми численными массивами.
2. Входную информацию и результаты вывести на печать.

Методические указания:
Исходные данные должны включать и положительные числа, и отрицательные, и нули.
Дан двумерный массив 4×4. Добавить 5-ю строку, элементы которой это сумма четных элементов этого же столбца по другим строках.

 

[Vladimir_S]

Дан двумерный массив 4×4. Добавить 5-ю строку, элементы которой это сумма четных элементов этого же столбца по другим строках.

Да ну... чего тут решать-то? Совсем не интересно.

VAR
 A:Array[1..5,1..4] of Integer;
 i,j,Sum:Integer;
BEGIN
 Randomize;
 For i:=1 to 4 do
  begin
   For j:=1 to 4 do
    begin
     A[i,j]:=50-Random(100);
     Write(A[i,j]:8);
    end;
   Writeln;
  end;
 Writeln;
 For j:=1 to 4 do
  begin
   A[5,j]:=0;
   For i:=1 to 4 do
    If (A[i,j] mod 2)=0 then A[5,j]:=A[5,j]+A[i,j];
  end;
 For i:=1 to 5 do
  begin
   For j:=1 to 4 do
    Write(A[i,j]:8);
   Writeln;
  end;
 Readln
END.

 

[TpaXmopucm]

Да ну... чего тут решать-то? Совсем не интересно.

VAR
 A:Array[1..5,1..4] of Integer;
 i,j,Sum:Integer;
BEGIN
 Randomize;
 For i:=1 to 4 do
  begin
   For j:=1 to 4 do
    begin
     A[i,j]:=50-Random(100);
     Write(A[i,j]:8);
    end;
   Writeln;
  end;
 Writeln;
 For j:=1 to 4 do
  begin
   A[5,j]:=0;
   For i:=1 to 4 do
    If (A[i,j] mod 2)=0 then A[5,j]:=A[5,j]+A[i,j];
  end;
 For i:=1 to 5 do
  begin
   For j:=1 to 4 do
    Write(A[i,j]:8);
   Writeln;
  end;
 Readln
END.

огромное спасибо