Сумма элементов двумерного массива по строкам

@dimak199 · Регистрация: 25.01.2012

Проверьте, пожалуйста.
Найти сумму элементов двумерного массива по строкам.

Pascal

var
  A:array[1..100,1..100] of integer;
  i,n,m,j,S: Integer;
begin
  writeln('n');
  readln(n);
  writeln('m');
  readln(m);
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      A[i,j]:=0+random(30);
      write(A[i,j]:4);
    end;
    writeln;
  end;
  for i:=1 to n do
  begin
    S:=0;
    for j:=1 to m do
    inc(S,A[i,j]);
    writeln('String =',i:3,' S = ',S);
  end;
end.

@CodeR · 22.10.2012, 07:46

всё правильно...

@CodeR Фрилансер 3411 / 2808 / 3000 Регистрация: 08.02.2012 Сообщений: 7,926 Записей в блоге: 1
	22.10.2012, 07:46	2
	всё правильно... 0

Опции темы