Цель работы: изучение методов разработки алгоритмов обработки многомерных массивов данных и их запись в виде блок-схем. : найти сумму элементов квадратной матрицы а[m, m], расположенных выше главной диагонали. число m вводятся с клавиатуры, а элементы матрицы заполнить случайным образом целыми числами из диапазона [-30; 40].

//Pascal ABC.NET v3.0
var ma:array of array of integer;
i,j,s,m:integer;
begin
randomize;
readln(m);
setlength(ma,m+1);
for i:=1 to m do
setlength(ma[i],m+1);
writeln('Matrix:');
for i:=1 to m do
 begin;
  writeln;
   for j:=1 to m do
    begin;
     ma[i,j]:=random(-30,40);
     write(ma[i,j]:4);
    end;
 end;
for i:=1 to m do
 for j:=i+1 to m do
  s+=ma[i,j];
writeln;
writeln('Result:',s);
end.

Математическая модель (а также программа; зависит от того, что понимать под этапом формализации).

В учебнике выделяют такие этапы решения задачи на компьютере:

Исходные данные (результат - словесная информационная модель)Формализация (математическая модель)Алгоритмизация (алгоритм)Программирование (программа)Отладка, тестирование (уточнение модели)Выполнение расчетов (получение результатов)

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

Const n=8;
var x : array[1..n] of real;
   i : integer; min : real;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
 begin
  x[i]:=20*random-10;
  write(x[i]:6:2,' ');     
 end;
 writeln;
min:=x[1];
for i:=2 to n do
 if x[i] < min then min:=x[i];
writeln('min=',min:6:2);
for i:=1 to n do
 if x[i]<0 then x[i]:=min;
writeln('Измененный массив:');
for i:=1 to n do write(x[i]:6:2,' ');
end.

Пример:
Исходный массив:
 -7.84  -9.97   7.00  -8.26  -7.71  -3.88   7.59  -2.32 
min= -9.97
Измененный массив:
 -9.97  -9.97   7.00  -9.97  -9.97  -9.97   7.59  -9.97