Адача по паскалю в первой строке 2 числа m, n.дальше описывается m строк по n символов. найти строку, которая по сумме больше остальных. пример 3 3 2 3 1 6 6 1 1 1 1 ответ 13
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.
ktv665
01.09.2020
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.
larinafashion829
01.09.2020
Program faceyourseif; var x,k,i: integer; g: boolean; begin; x : = random(100); writeln(x); writeln('компьер загадал число от 0 до 100'); writeln('попробуйте его угадать'); repeat writeln('введите число'); read(k); if k > x then writeln('не угадали! загаданное число меньше'); if k < x then writeln('не угадали! загаданное число больше'); if k = x then begin; writeln('поздравляю,вы угадали! '); g: =true; end; i: =i+1; until g or (i=3); end.
proporcia46
01.09.2020
Pascalabc.net 3.3.5, сборка 1659 от 09.04.2018 внимание! если программа не работает, обновите версию! begin // структура строки // день время канал вид название(возможно, многословное) // цель: удалив "канал" (третье слово), найти строки var ms: =readalllines('tv.txt'); ms.printlines; // чтобы было понятно содержимое файла writeln; var d: =ms.groupby(s-> (s.towords[: 2]+s.towords[3: ]).joinintostring(' ')) .select(t-> (t.key,t.(t-> t[1]> 1).select(t-> t[0]); if d.count=0 then writeln('искомые передачи отсутствуют') else foreach var s in d do begin var key: =s.towords.take(2).joinintostring; ms.where(t-> t.towords.take(2).joinintostring=key).printlines; writeln end end. пример понедельник 09: 00 первый новости новости на первом суббота 19: 40 первый фильм кин-дза-дза! среда первый 07: 15 нтв мультфильм трое из простоквашино четверг 19: 40 первый фильм кин-дза-дза! вторник 09: 00 первый новости новости на первом понедельник 12: 00 первый новости новости на первом пятница 16: 40 россия-1 мультфильм трое из простоквашино суббота 19: 40 россия-1 фильм кин-дза-дза! среда 09: 00 первый новости новости на первом четверг 09: 00 первый новости новости на первом суббота 19: 40 нтв фильм кин-дза-дза! суббота 19: 40 первый фильм кин-дза-дза! суббота 19: 40 россия-1 фильм кин-дза-дза! суббота 19: 40 нтв фильм кин-дза-дза!
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Адача по паскалю в первой строке 2 числа m, n.дальше описывается m строк по n символов. найти строку, которая по сумме больше остальных. пример 3 3 2 3 1 6 6 1 1 1 1 ответ 13