Программа вычисления  суммы  элементов  двумерного вещественнозначного массива X максимального размера 10x10.

Program Pr22 (Input, Output);         

Объявление имени программы

Var         

Блок объявления глобальных переменных

X             : Array [1..20, 1..20] Of Real;            

Переменная X - двумерный массив действительных чисел, размер - не более 20x20

N             : Integer;              

Переменная N - число элементов массива X

S             : Real;    

Переменная S - искомая сумма элементов массива

i, j  : Integer;        

Переменные i,j - параметры циклов

Begin    

Начало тела программы

WriteLn ('PASCAL: Вычисление суммы элементов прямоугольной таблицы.');           

Формулировка цели алгоритма

Write ('Введите размерность таблицы:  N = ');          

Запрос ввода N - числа элементов массива

ReadLn (N);         

Ввод N

WriteLn ('Введите элементы таблицы:');     

Запрос ввода элементов таблицы

For i := 1 To N Do              

Цикл для i от 1 до N, где i - номер очередной строки

For j := 1 To N Do              

Цикл для j от 1 до N, где j - номер очередного столбца

Begin    

Начало тела цикла

Write ('X[', i, ',', j, '] = ');      

Вывод удобной подсказки

ReadLn (X [i,j] ); 

Ввод очередного элемента - X[i,j]

End;      

Конец тела цикла

S := 0;    

Переменной S присваиваем начальное значение 0

For i := 1 To N Do              

Цикл для i от 1 до N, где i - номер очередной строки

For j := 1 To N Do              

Цикл для j от 1 до N, где j - номер очередного столбца

S := S + X [i, j];    

Прибавляем к S очередной элемент массива X - X[i,j]

WriteLn ('Cумма:  S = ', s: 6: 1);      

Вывод полученного значения суммы

ReadLn;

Ожидание нажатия клавиши Enter для завершения

End.       

Конец программы.