
Добавил:
Yanus
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Лабы Паскаль / лабы 5 / L7_Z2_V7
.PAS program lab7_2;
var
x, y, n: integer;
ar: array[1..11, 1..11] of integer;
begin
n:=1;
for y:=1 to 10 do
for x:=1 to 10 do begin
ar[x, y] := x * y;
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..11, 1..11] of integer;
begin
n:=1;
for y:=1 to 10 do
for x:=1 to 10 do begin
ar[x, y] := x * y;
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