Дана последовательность целых чисел 1,2,...,100. Заполнить ими матрицу следующим образом 1 2 ...... 10 11 12 ... 20 21 22 ... 30 ................... 91 92 ... 100 и распечатать.
Правильна....проверте Program matr; var m:array [1,2,...100] of integer; i,j: integer; begin writeln('matriza'); for i:1 to 100 do for j:i to 100 do begin m[i,j]:=j-i+1; m[j,i]:=m[i,j] end; for i:=1 to 100 do begin for j:=1 to 100 do writeln(m[i,j]:2); writekn end.
Вот решение задачи (в твоей есть ошибки и она не компилится):
Код
Program matr; var m:array [1..10,1..10] of integer; i,j,k: integer; begin k:=1; writeln('matriza'); writeln; for i:=1 to 10 do for j:=1 to 10 do begin m[i,j]:=k; k:=k+1; end; for i:=1 to 10 do begin for j:=1 to 10 do write(m[i,j]:2); writeln; end; writeln; end.
