Тема. Матрицы.
Задание. Дана вещественная матрица A(10,10). Найти суммы элементов тех столбцов, которые имеют отрицательный элемент на пересечении с главной диагональю матрицы. Завести массив, в котором разместить найденные суммы. Если ни одной суммы не найдено, выдать сообщение.
Исходный код программы для Delphi 7:
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils,
Windows;
const n=9;
var mas:array[0..n,0..n] of integer;
mt : array[0..n] of integer;
i,j,k:integer;
begin
randomize;
for i := 0 to n do //заполняем массив
begin
writeln;
for j:=0 to n do
begin
mAS[i,j]:=round((0.5-random)*100);
write(mas[i,j]:4);
end;
end;
for i := 0 to n do
mt[i]:=-999; //массив для сумм заполняем не допустимым значением
for i := 0 to n do
if mAS[i,i] begin
mt[i]:=0; //обнуляем счетчик
// writeln(i);
// inc(k);
for j:=0 to n do
mt[i]:=mt[i]+mas[i,j]
end;
writeln;
for i := 0 to n do //выводим суммы
if mt[i]-999 then
writeln('i',i,': ', mt[i]);
Readln;
end.
Блок схема:
