Блок-схема к программе

[Egor1Mozi]

Блок-схема к программе

uses crt;
const n=4;
* * * a:array[1..n,1..n] of real=((0.7,-12, 6, 3),
* * * * * * * * * * * * * * * * * ( *1, *2,-1,-8),
* * * * * * * * * * * * * * * * * ( -3, *4, 5, 0),
* * * * * * * * * * * * * * * * * ( *5, -7, 0, 4));
var b:array[1..n,1..n] of real;
* * i,j,k:byte;
* * s:real;
begin
clrscr;
writeln('Исходная матрица');
k:=0;
s:=0;
for i:=1 to n do
*begin
* for j:=1 to n do
* *begin
* * if j<n-i+1 then
* * *begin
* * * k:=k+1;
* * * s:=s+a[i,j];
* * *end;
* * write(a[i,j]:7:2);
* *end;
* writeln
*end;
s:=s/k;
writeln('Среднее арифметическое выше побочной диагонали=',s:0:2);
writeln('Новая матрица');
for i:=1 to n do
*begin
* for j:=1 to n do
* *begin
* * b[i,j]:=a[i,j]*s;
* * write(b[i,j]:7:2)
* *end;
* writeln
*end;
readln
end.

 

[Vladimir_S]

На будущее: если Вы хотите, чтобы форматирование текста программы (отступы) сохранилось, то это делается так. Подготавливаете своё сообщение в Расширенном режиме (кнопка под полем ответа), копируете текст программы, выделяете его и жмёте одну из двух кнопок: # либо php. Все Ваши разметки сохранятся. Или можно в режиме быстрого ответа вручную перед и после листинга добавить теги {CODE} и {/CODE}, соответственно. Только скобки, конечно, не фигурные, а квадратные "[", "]". А звёздочки лепить не надо. Вот так:
С тегами CODE:

uses crt;
const n=4;
        a:array[1..n,1..n] of real=((0.7,-12, 6, 3),
                                    (  1,  2,-1,-8),
                                    ( -3,  4, 5, 0),
                                    (  5, -7, 0, 4));
var b:array[1..n,1..n] of real;
    i,j,k:byte;
    s:real;
begin
 clrscr;
 writeln('Исходная матрица');
 k:=0;
 s:=0;
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     if j<n-i+1 then
      begin
       k:=k+1;
       s:=s+a[i,j];
      end;
     write(a[i,j]:7:2);
    end;
   writeln
  end;
 s:=s/k;
 writeln('Среднее арифметическое выше побочной диагонали=',s:0:2);
 writeln('Новая матрица');
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     b[i,j]:=a[i,j]*s;
     write(b[i,j]:7:2)
    end;
   writeln
  end;
 readln
end.

С тегами php:

uses crt;
const n=4;
        a:array[1..n,1..n] of real=((0.7,-12, 6, 3),
                                    (  1,  2,-1,-8),
                                    ( -3,  4, 5, 0),
                                    (  5, -7, 0, 4));
var b:array[1..n,1..n] of real;
    i,j,k:byte;
    s:real;
begin
 clrscr;
 writeln('Исходная матрица');
 k:=0;
 s:=0;
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     if j<n-i+1 then
      begin
       k:=k+1;
       s:=s+a[i,j];
      end;
     write(a[i,j]:7:2);
    end;
   writeln
  end;
 s:=s/k;
 writeln('Среднее арифметическое выше побочной диагонали=',s:0:2);
 writeln('Новая матрица');
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     b[i,j]:=a[i,j]*s;
     write(b[i,j]:7:2)
    end;
   writeln
  end;
 readln
end.