
Добавил:
Yanus
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Лабы Паскаль / лабы 5 / L7_Z1_V7
.PAS program lab7_1;
var
x, y, n: integer;
ar: array[1..10, 1..10] of integer;
begin
n:=1;
for y:=1 to 10 do
for x:=1 to 10 do begin
ar[x, y] := n;
n:=n+1;
end;
for y:=1 to 10 do begin
for x:=1 to 10 do begin
write(ar[x, y]:4);
end;
writeln;
end;
readln;
end.
var
x, y, n: integer;
ar: array[1..10, 1..10] of integer;
begin
n:=1;
for y:=1 to 10 do
for x:=1 to 10 do begin
ar[x, y] := n;
n:=n+1;
end;
for y:=1 to 10 do begin
for x:=1 to 10 do begin
write(ar[x, y]:4);
end;
writeln;
end;
readln;
end.
Соседние файлы в папке лабы 5