Что ты хочешь узнать?
пожалуйста помогите переставить 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.
Не тот ответ на вопрос, который вам нужен?
Найди верный ответ
Самые новые вопросы
История - 6 лет назад
Литература - 6 лет назад
Русский язык - 6 лет назад
Русский язык - 6 лет назад
Русский язык - 6 лет назад
Физика - 6 лет назад
Информация
Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.Войти