Заменить все элементы матрицы на нулевые

@Sweet_Records · Регистрация: 05.12.2014

Author24 — интернет-сервис помощи студентам

Вечер добрый! Помогите с задачкой: дана квадратная матрица порядка n(n=5). Если в матрице a элемент, расположенный на главной диагонали превышает сумму остальных элементов строки, то заменить все элементы на нулевые, иначе оставить без изменения. Еще нужно чтобы обязательно была процедура в коде программы и если можно с блок-схемой! Заранее спасибо!

@JokeR.BY · 11.12.2014, 00:55

Pascal

const
    n = 5;
type
    TLine = Array[1..n] Of ShortInt;
var
    mass : Array[1..n] Of TLine;
    i, j : Byte;
procedure Check(var l : TLine; const id : Byte);
var
    i : Byte;
    sum : Integer;
begin
    sum := 0;
    for i := 1 to n do
        Inc(sum, l[i]);
    if (l[id] * 2 > sum) then
        for i := 1 to n do
            l[i] := 0;
end;
begin
    Randomize;
    WriteLn('Исходная матрица:');
    for i := 1 to n do
    begin
        for j := 1 to n do
        begin
            mass[i, j] := Random(199) - 99;
            Write(mass[i, j]:4);
        end;
        Check(mass[i], i);
        WriteLn;
    end;
    WriteLn('После проверок:');
    for i := 1 to n do
    begin
        for j := 1 to n do
            Write(mass[i, j]:4);
        WriteLn;
    end;
end.

@Sweet_Records · 11.12.2014, 10:58 **[ТС]**

Большое вам спасибо!

@Sweet_Records 0 / 0 / 0 Регистрация: 05.12.2014 Сообщений: 15
		1
	Заменить все элементы матрицы на нулевые 11.12.2014, 00:04. Показов 1617. Ответов 2 Метки нет (Все метки) Вечер добрый! Помогите с задачкой: дана квадратная матрица порядка n(n=5). Если в матрице a элемент, расположенный на главной диагонали превышает сумму остальных элементов строки, то заменить все элементы на нулевые, иначе оставить без изменения. Еще нужно чтобы обязательно была процедура в коде программы и если можно с блок-схемой! Заранее спасибо! 0

@Sweet_Records 0 / 0 / 0 Регистрация: 05.12.2014 Сообщений: 15
	11.12.2014, 10:58 [ТС]	3
	Большое вам спасибо! 0

Заменить все элементы матрицы на нулевые

Решение