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