program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

const n=3;
type t=array[1..n,1..n]of integer;
t1=array[1..n,1..n-1]of integer;
procedure vvod(var a:t);
var i,j:integer;
begin
writeln('vvedite elemeti massiva!');
for i:=1 to n do
begin
for j:=1 to n do
read(a[i,j]);
readln;
end;
end;
procedure vivod(b:t1);
var i,j:integer;
begin
writeln('vivod poluchennogo massiva');
for i:=1 to n do
begin
for j:=1 to n-1 do
write(b[i,j],' ');
readln;
end;
end;
procedure uddig(a:t;var b:t1);
var i,j:integer;
begin
for i:=1 to n do

for j:=1 to n-1 do
if j else b[i,j]:=a[i,j+1];

end;
var a:t;
b:t1;
begin
vvod(a);
uddig(a,b);
vivod(b);


READLN;



{ TODO -oUser -cConsole Main : Insert code here }
end.





Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.