Регистрация Спросить otvet5GPT
1шрус220
12.05.2023 02:21
Информатика
Есть ответ 👍

Напишите программу, которая выводит на экран строку матрицы, сумма значений элементов которой наибольшая (pascal)

251
495
Посмотреть ответы 3

Ответы на вопрос:

sashadorosh1953
sashadorosh1953
4,5(53 оценок)
Const     n = 3;     m = 4; var     a: array[1..n,1..m] of integer;     i,j,imax: integer;     s,max: real; begin randomize; writeln('исходная матрица: '); for i: = 1 to n do       begin       for j: = 1 to m do               begin               a[i,j]: =random(21)-10;               write(a[i,j]: 3,' ');               end;       writeln       end; max: =0; imax: =1; for j: = 1 to m do       max: =max+a[1,j]; for i: = 2 to n do       begin       for j: = 1 to m do               s: =s+a[i,j];       if s> max then             begin             max: =s;             imax: =i;             end;       end; write('искомая строка: '); for j: = 1 to m do       write(' ',a[imax,j]) end. пример работы программы: исходная матрица:   8    0  -7  -1   -2 -10  -4 -10   5  -1  10  -6 искомая строка: 8 0 -7 -1
Есения1511
Есения1511
4,7(64 оценок)
1. современное решение // pascalabc.net 3.2, сборка 1417 от 28.03.2017 // внимание! если программа не работает, обновите версию! begin   var n: =readinteger('количество строк в матрице: ');   var m: =readinteger('количество столбцов в матрице: ');   writeln('*** исходная матрица [',n,',',m,'] ***');   var a: =matrrandom(n,m,-99,99);   a.println(4); writeln(4*a.colcount*'-');   writeln('строка с наибольшей суммой: ');   a.row(a.rows.select(r-> r.sum).toarray.indexmax).println end. пример количество строк в матрице: 6 количество столбцов в матрице: 9 *** исходная матрица [6,9] ***   54 -83  45 -44 -52  57 -90 -71 -70     8  99 -27  72  46  28 -18  36  48   -85  24 -57 -67  63 -69  52  44 -99   -34 -44  -1  45  48  63  68  48  98   27  84  15  70  37 -70    1  24 -60   -82 -63    6 -59  91 -64  84  65  66 строка с наибольшей суммой: 8 99 -27 72 46 28 -18 36 48 2. школьное решение в стиле языка турбопаскаль 1983г const   nn=20; var   i,j,n,m,k,s,max: integer;   a: array[1..nn,1..nn] of integer; begin   write('количество строк в матрице: '); read(n);   write('количество столбцов в матрице : '); read(m);   writeln('*** исходная матрица [',n,',',m,'] ***');   randomize;   max: =-100;   for i: =1 to n do begin       s: =0;       for j: =1 to m do begin           a[i,j]: =random(199)-99;           write(a[i,j]: 4);           s: =s+a[i,j]           end;       writeln;       if s> max then begin           max: =s; k: =i           end       end;   for i: =1 to 4*n do write('-');   writeln;   writeln('строка с наибольшей суммой: ');   for j: =1 to m do write(a[k,j],' ');   writeln end.
Вова12345678912
Вова12345678912
4,8(84 оценок)

ответ 3) попробую выяснить у друга, не взломан ли его аккаунт

Реши свою проблему, спроси otvet5GPT

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

Популярно: Информатика

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

    otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.

  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.

  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!

  • В чем отличия от ChatGPT?

    otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.

Подпишись на наш телеграмм канал

GTP TOP NEWS