Pascal, Должно быть матрица (таблица) а получается список. Что не так? program matric;
var
K: array[1..6,1..5] of integer;
i,j:integer;
begin
writeln;
for i:= 1 to 6 do
for j:= 1 to 5 do
if i=j then K[I,J]:=i+j
else if i>j then K[i,j]:=i*J
else K[i,j]:=9;
writeln('text');
for i:= 1 to 6 do
for j:= 1 to 5 do
writeln (K[i,j]);
readln;
end.
var
K: array[1..6,1..5] of integer;
i,j:integer;
begin
writeln;
for i:= 1 to 6 do
for j:= 1 to 5 do
if i=j then K[I,J]:=i+j
else if i>j then K[i,j]:=i*J
else K[i,j]:=9;
writeln('text');
for i:= 1 to 6 do
for j:= 1 to 5 do
writeln (K[i,j]);
readln;
end.
More Questions From This User See All