Пожалуйста помогите переставить 3 и 5 столбец и 3 и 5 строку в массиве ...вроде правильно написала но выходит ошибка program mas55; const n=5; type st=array[1..n] of real; var i,j,d:integer; b:st; a:array[1..n] of st; begin...
Пожалуйста помогите переставить 3 и 5 столбец и 3 и 5 строку в массиве ...вроде правильно написала но выходит ошибка
program mas55;
const n=5;
type st=array[1..n] of real;
var i,j,d:integer;
b:st;
a:array[1..n] of st;
begin
for i:=1 to n do
for j:=1 to n do if j=3 then a[i,j]:=sqr(i)*j else a[i,j]:=2;
for i:=1 to n do
begin
for j:=1 to n do write (a[i,j]:6);
writeln
end;
writeln;
b:=a[3];
a[3]:=a[4];
a[4]:=b;
for i:=1 to n do
begin
for j:=1 to n do write (a[i,j]:6);
writeln;
for i:=1 to n do
begin
d:=a[i,3];
a[i,3]:=a[i,5];
a[i,5]:=d
end;
for i:=1 to n do
begin
for j:=1 to n do write (a[i,j]:6);
writeln
end;
writeln
end
end.
Гость
Ответ(ы) на вопрос:
Гостьчто за тип данных st?
Не нашли ответ?
Похожие вопросы