Помогите с задачей - Форум
Воскресенье, 04.12.2016, 04:51
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Помогите с задачей
Помогите с задачей
vizДата: Среда, 03.12.2008, 18:42 | Сообщение # 1
Рядовой
Группа: Новичок
Сообщений: 1
[ 0 ]
Статус: Offline
Дана матрица [A], размером N x N. Поменять местами члены, образующие главную и обратную диагонали. Вывести на печать исходную и полученную матрицы.

Помогите пожалуйста решить.

 
4iffaДата: Понедельник, 26.01.2009, 00:40 | Сообщение # 2
Рядовой
Группа: Новичок
Сообщений: 1
[ 0 ]
Статус: Offline
uses
crt;
var
a,b: array [1...100,1...100] of integer;
n,m,i,j,c: integer;
begin
clrscr;
write('вводим кол-во столбцов');
readln(m);
for i:=1 to n do
for j:=1 to m do
begin
write('вводим элемент(',i,',',j,')');
readln(a[i,j];
b[i,j]:=a[i,j];
end;
clrscr;
for i:=1 to n do
begin
c:=b[i;i];
b[i,i]:=b[i,n+1-i];

Что-то типа того...

Сообщение отредактировал 4iffa - Понедельник, 26.01.2009, 00:41
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Помогите с задачей
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016