Вопрос по информатике:
Задача 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
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 13.03.2018 00:09
- Информатика
- remove_red_eye 3744
- thumb_up 13
Ответы и объяснения 1
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
- 13.03.2018 11:31
- thumb_up 7
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.