Транспонировать двумерный массив - Pascal ABC

Формулировка задачи:

Транспонировать двумерный массив относительно побочной диагонали. Подсчитать, сколько элементов, расположенных выше главной диагонали больше чем среднее значение в массиве


textual

Код к задаче: «Транспонировать двумерный массив - Pascal ABC»

const mmax=10;
var a:array[1..mmax,1..mmax]  of real;
    n,i,j,k:byte;
    s,x:real;
begin
randomize;
repeat
write('Размер матрицы от 2 до ',mmax,' n=');
readln(n);
until n in [2..mmax];
writeln('Матрица');
s:=0;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=10*random;
    write(a[i,j]:5:1);
    s:=s+a[i,j];
   end;
  writeln;
 end;
s:=s/n/n;
for i:=1 to n-1 do
for j:=1 to n-i do
 begin
  x:=a[i,j];
  a[i,j]:=a[n-j+1,n-i+1];
  a[n-j+1,n-i+1]:=x;
 end;
writeln('Транспонированная матрица');
k:=0;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    write(a[i,j]:5:1);
    if (j>i)and(a[i,j]>s) then k:=k+1;
   end;
  writeln;
 end;
writeln('Среднее=',s:0:1);
write('Количество элементов выше главной диагонали больших среднего=',k);
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

10   голосов, оценка 4.100 из 5

Источник
Похожие ответы