Получить на экране ЭВМ квадратную матрицу: 1 2 3 4 ... 2 4 6 8 ... 3 6 9 12 ... ........................
Получить на экране ЭВМ квадратную матрицу:
1 2 3 4 ...
2 4 6 8 ...
3 6 9 12 ...
........................
Гость
Ответ(ы) на вопрос:
Гостьconst m=20;
var i,j,n: integer;
a: array[1..m,1..m] of integer;
begin
write('n = '); readln(n);
{ заполнение массива и вывод на экран}
for i:=1 to n do
for j:=1 to n do
begin
a[i,j]:=i*j;
write(a[i,j]:3,' ');
if j=n then writeln;
end;
end.
Не нашли ответ?
Похожие вопросы