Адача по паскалю в первой строке 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.

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.

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.

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 нтв фильм кин-дза-дза!