Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Все лабораторные работы по паскалю / 3 лаб. Массивы / Program5
.pas uses crt;
const K=10;
var a: array[1..K,1..K] of integer;
row,col: integer;
begin
for row:=1 to K do begin
for col:=1 to K do begin
a[row,col]:=row*col;
write(a[row,col]:4);
end;
writeln;
end
end.
const K=10;
var a: array[1..K,1..K] of integer;
row,col: integer;
begin
for row:=1 to K do begin
for col:=1 to K do begin
a[row,col]:=row*col;
write(a[row,col]:4);
end;
writeln;
end
end.
Соседние файлы в папке 3 лаб. Массивы