👤
a fost răspuns

Ajutați-mă va rog cu problema aceasta

Ajutațimă Va Rog Cu Problema Aceasta class=

Răspuns :

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.
 
Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Sperăm că informațiile disponibile v-au fost utile și inspiraționale. Dacă aveți întrebări sau aveți nevoie de suport suplimentar, suntem aici pentru a vă ajuta. Ne face plăcere să vă revedem și vă invităm să adăugați site-ul nostru la favorite pentru acces rapid!


Ez Studiers: Alte intrebari