Задача 2. Замечательная игра Вот Теснее N дней подряд Руслан играет
Задачка 2. Примечательная забава
Вот Уже N дней попорядку Руслан играет в примечательную забаву . Каждый денек у него получаться сыграть ровно 7 раз . В конце каждой забавы он набирает от 0 до 10 очков . Забава считается действенной если в ней было набрано более 3 очков
Помогите подсчитать Руслану сумму очков всех результативных игр для каждого дня.
Формат ввода:
N(1lt;=Nlt;=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]
(0lt;=1[I,i] lt;=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
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]gt;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
-
Вопросы ответы
Статьи
Информатика
Статьи
Обществознание.
Математика.
Химия.
Русский язык.
Разные вопросы.
Разные вопросы.
Математика.
Русский язык.
Русский язык.
Разные вопросы.