Форум программистов [Powered by Invision Power Board]

Код

program p;
const N = 5; {Заданное число N}
var A: array [1..N,1..2*N] of real;
    b: array[1..N] of real;
    x, sum: real;
    i, k: integer;
begin
{Ввод исходной матрицы
...}

for i:= 1 to N do {Для каждой строки:}
    begin
        sum := 0;{Обнуляем сумму}
        for k := 1 to 2*N do {Цикл для суммирования всех элементов строки}
            sum := sum + A[i, k]; {Суммируем k-тый элемент}
        if sum < x then {Проверяем условие}
            b[i] := 1 {x меньше суммы}
        else
            b[i] := 0; {x больше и равно сумме}
    end;{конец цикла}

{Вывод результата
...}
end.