Матрица

[Cartman18]

Для матрицы из 3 столбцов и 7 строк отпечатать номера тех строк, в которых третий элемент больше суммы двух других элементов строки, и число строк такого рода.
Заранее спасибо!

[Карась]

1. Берём три массива.
2. if mas_3[i] > mas_1[i] + mas_2[i] then Writeln (mas_1[i], mas_2[i], msa_3[i]);
........всё это в цикл for....
3. Что значит:

и число строк такого рода.

?

[Cartman18]

ммм ну смари

program laba7_2;
var A: array[1..7] of array[1..3] of integer;
    i,j,k:integer;
begin
 k:=0;
 Randomize;
 for i:=1 to 7 do for j:=1 to 3 do begin a[i][j]:=random(100); end;
  for i:=1 to 7 do begin writeln; for j:=1 to 3 do  write(a[i][j] , ' '); end;
  Writeln;
 for i:=1 to 7 do if A[i][1]+A[i][2]<A[i][3] then begin  writeln(i); k:=k+1; end;

 writeln('k=',k);
readln;
end.

воть программа, вроде потчи рабочая( ну что то здесь не так...а что значит и число строк такого рода, понятие не имею.

[Карась]

program Project1;

{$APPTYPE CONSOLE}
Var mas: array[1..7, 1..3] of integer;
      i, g: byte;

begin

Randomize;
   for i := 1 to 3 do
      for g := 1 to 7 do mas[i,g] := random(100);

   for g := 1 to 7 do begin
      for i := 1 to 3 do Write (mas[i,g],' '); Writeln; End;

Writeln;
for g := 1 to 7 do
  if mas[3,g] > mas[1,g] + mas[2,g] then Write (g, ' ');

Readln;
end.

1. Заполняем массив случайными числами.
2. Выводим массив на экран.
3. Смотрим больше ли 3 эл. массива суммы первых двух....

[Cartman18]

Спасибо!