Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
3
Добавлен:
15.06.2014
Размер:
321 б
Скачать
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.
Соседние файлы в папке лабы 5