Question

2. замечательная игра вот уже n дней подряд руслан играет в замечательную игру . каждый день у него получаться сыграть ровно 7 раз . в конце каждой игры он набирает от 0 до 10 очков . игра считается результативной если в ней было набрано более 3 очков подсчитать руслану сумму очков всех результативных игр для каждого дня. формат ввода: n(1< =n< =100) -количество дней 1[1.1] a[1.2] a[1.3] a[1.4] a[1.5] a[1.6] a[1.7] a[2,1] a[2,2] a[2,3] a[2,4] a[2,5] a[2,6] a[2,7] a [n,1] a [n,2] a [n,3] a [n,4] a [n,5] a [n,6] a [n,7] (0< =1[i,i] < =10) - очки набранные в i-ый день в j-ой игре. формат вывода ans[1] ans[2] ans[n] - сумму очков всех результативных игр для каждого дня. пример ввода: пример вывода: 3 15 0 1 2 3 4 5 6 49 7 7 7 7 7 7 7 10 0 1 2 3 3 2 10

Answer 1

Const m=7;
var 
a:array of array of integer;
ans:array of integer;
n,i,j:integer;
begin
readln(n);
SetLength(a,n);
for i:=0 to n-1 do SetLength(a[i],m);
SetLength(ans,n);
for i:=0 to n-1 do
 begin
 for j:=0 to m-1 do read(a[i,j]);
 readln;
 end;
for i:=0 to n-1 do
 for j:=0 to m-1 do
  if a[i,j]>3 then ans[i]:=ans[i]+a[i,j];
for i:=0 to n-1 do writeln(ans[i]:4);
 writeln;
end.

Пример:
3
0 1 2 3 4 5 6
7 7 7 7 7 7 7
0 1 2 3 3 2 10
  15
  49
  10