Вопрос по информатике:
Адача срочно по Паскалю
В первой строке 2 числа M,N.Дальше описывается M СТРОК по N символов. Найти строку, которая по сумме больше остальных.
Пример
3 3
2 3 1
6 6 1
1 1 1
Ответ
13
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 05.12.2016 15:30
- Информатика
- remove_red_eye 13098
- thumb_up 22
Ответы и объяснения 2
Var
a:array[1..100,1..100]of integer;
m,n,i,j,s,max:integer;
begin
readln(m,n);
for i:=1 to m do
begin s:=0;
for j:=1 to n do
begin
a[i,j]:=random(100);
write(a[i,j]:4);
s:=s+a[i,j];
end;
if s>max then
max:=s;
writeln;
end;
writeln('S: ',max);
end.
- 06.12.2016 16:43
- thumb_up 36
Var
a:array [1..10, 1..10] of integer;
i,j,s1,s2,m,n:integer;
begin
writeln('Введите через пробел M, N:');
read(m,n);
randomize;
for i:=1 to m do
begin
for j:=1 to n do
begin
a[i,j]:=random(10);
write(a[i,j],' ')
end;
writeln;
end;
for i:=1 to m do
begin
s2:=0;
for j:=1 to n do
if i=1 then s1:=s1+a[i,j]
else s2:=s2+a[i,j];
if s2>s1 then s1:=s2;
end;
writeln(s1)
end.
- 07.12.2016 10:44
- thumb_up 46
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.