То есть по диагонали заполняется. Размеры массива могут быть любыми, массив квадратный.
Код:
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var MyArray:array [1..4,1..4] of integer; i,j,x:integer;
begin
for i:=1 to 4 do
for j:=1 to 4 do
begin
readln(x);
MyArray[i,j]:=x;
end;
end.
Я так понял?//
PS не знал что в 1м классе уже паскаль проходят/// х(