Лабораторная работа №11
Вариант – 8
(из книги: “Алгоритмизация и программирование на
Турбо Паскале” В.C. Новичков)
program Lab;
uses Crt;
const Size = 7;
var M: array[1..Size, 1..Size]of Real;
X, Y: Integer;
Sum: Real;
begin
ClrScr;
writeln('Введите ', Sqr(Size), ' элементов матрицы.');
for Y:=1 to Size do
for X:=1 to Size do
Read(M[X, Y]);
Sum:=0;
for X:=1 to Size do
for Y:=1 to Size do
if Y>X then
Sum:=Sum+M[X, Y];
writeln('Сумма элементов, лежащих ниже главной диагонали равна ', Sum:5:2);
Readln;
end.
|
Главная
Каталог файлов
