Question

Ajutați-mă va rog cu problema aceasta

Answer 1

var

 a:array[1..10] of array[1..100] of integer;
 s:array[1..10] of integer;
 i,j,n,m,nr:integer;
 t:text;
 
begin

 assign(t,'TRE.IN');
 reset(t);
 
 read(t,n,m);
 
 for i:=1 to n do
  for j:=1 to m do
   read(t,a[i][j]);
   
 close(t);
 
 assign(t,'TRE.OUT');
 rewrite(t);
 
 nr:=1;
 
 for i:=1 to n do
  begin
   j:=0;
   while j+7<=m do
    begin
     j+=7;
     s[nr]+=a[i][j];
    end;
   nr+=1;
  end;
  
 for i:=1 to n do
  write(t,s[i],' ');
  
 close(t);

end.