Составить программы решения задач

[Катя369919407]

3.1. Дана матрица nn. Получить транспонированную матрицу, т.е. поменять местами строки и столбцы ( i-й столбец становится i-й строкой).

3.2. Дана действительная квадратная матрица размером 99. Найти S - сумму элементов из заштрихованной области:
а) б) в) г)
(Рисунки вложены в фото)

3.3. Дана целочисленная квадратная матрица размера nn. Найти номера столбцов:
а) все элементы которых - нули;
б) элементы в каждом из которых одинаковы;
в) элементы которых образуют возрастающую последовательность
(x1i < x2i < ... < xni ).

[McFrey]

1 задача (обработка)...тут все прозрачно

for j:=1 to N do
 begin 
 for i:=1 to m do
 begin
 temp:=a[i,j];
 a[i,j]:=b[j,i];
 b[j,i]:=temp;
 end;
 end;

[McFrey]

для затравки
2а)

for i:=1 to 1 do 
  for j:=i to n do
  begin
  a[i,j]:=1;
  end;
  for i:=n to n do
  for j:=1 to n do
  begin
  a[i,j]:=1;
  end;
  for i:=2 to n-1 do
  for j:=1 to 1 do
  begin
  a[i,j]:=1;
  end;
   for i:=2 to n-1 do
  for j:=n to n do
  begin
  a[i,j]:=1;
  end;

[Катя369919407]

Выдаёт ошибку (ожидалось описание)

[McFrey]

ну естественно, ведь это только обработка, без ввода/вывода

[Катя369919407]

Хорошо,а остальные сделаете?

[McFrey]

а вы что нибудь сами делали?

[Катя369919407]

Сама я только смогла составить прогр. вычисляющую периметр и площадь, определить вес,индекс массы тела,роста и прог. вычисления значений некоторых ф-ций. На этом всё,а лабороторных много(

[McFrey]

напиши мне в аську (см. профиле)

[James_047]

3.3 б)

var a:array[1..100,1..100]of integer;
i,j,n,m:integer;
f:boolean;
begin

 write('Vvedite n');
 readln(n);

 for i:=1 to n do for j:=1 to n do
 begin
  write('Vvedite A[',i,' ',j,']: ');
  readln(a[i,j]);
 end;
writeln('Ishodnaya matrica');
 for i:=1 to n do
 begin
  for j:=1 to n do write(a[i,j]:4);
  writeln;
 end;
for j:=1 to n do
 begin
  f:=true;
  for i:=2 to n do if a[1,j]<>a[i,j] then f:=false;
  if f then writeln(j,' stolbec');
 end;
 readln;
end.