Const
n = 6;
m = 8;
type mas = array[1..n,1..m] of integer;
var
a : mas;
i, j : integer;
f, g : text;

procedure change(var z : mas);
var i, j, k, t : integer;
begin
k := n div 2;
for i := 1 to k do
for j := 1 to m do
begin
t := a[n-i+1, j];
a[n-i+1, j] := a[i,j];
a[i,j] := t
end;
end;

begin
assign(f, 'mtrx.txt');
assign(g, 'mtrx1.txt');
reset(f);
writeln('матрица:');
for i := 1 to n do
begin
for j := 1 to m do
begin
read(f, a[i,j]);
write(a[i,j]:4)
end;
writeln
end;
close(f);
rewrite(g);
change(a);
writeln('новая матрица:');
for i := 1 to n do
begin
for j := 1 to m do
begin
write(a[i,j]:4);
write(g, a[i,j]:4)
end;
writeln;
writeln(g)
end;
close(g);
writeln('копия новой матрицы сохранена а файл!');
readln
end.

в ответах не рабочая

247

468

Посмотреть ответы 1

Ответы на вопрос:

Данек44

Информатика

4,8(56 оценок)

С одной стороны, электронные страницы – это хорошо, меньше вреда наносится окружающей среде, да и хранить большое количество информации легче и удобнее в электронном виде. С другой стороны – человечество становится все более зависимым от техники. Многие даже представить себе не могут, что будут делать, если, например, забудут дома телефон, это приравнивается к трагедии. Велико число тех, кто просто убивает время в социальных сетях, живое общение заменяется набором букв на компьютере, а жесты и мимика – смайликами. Да, это хорошо для тех, кто находится далеко друг от друга, или в силу каких – то других причин просто физически не могут увидеться. Но мы злоупотребляем такими благами, так как, живя по соседству – общаемся посредством сети и устройств. Люди просто перестали ходить в гости и просто видеться.

Объяснение:

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.