Есть ответ 👍

Используя пользовательскую
процедуру или функцию, напишите подпрограмму для обработки заданной в
основной программе квадратной матрицы размера М×M (где 5<М<10 и
вводится с клавиатуры), согласно нижеприведенному условию: Сформировать и вывести на дисплей новый одномерный массив
MAS состоящий из сумму элементов каждой строки матрицы.

146
233
Посмотреть ответы 1

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

Kiosshi
4,6(8 оценок)

Var a,max,max2: real; i: integer; begin   writeln('введите скорость');     for i: =1 to 7 do         begin             readln(a);                 if a> max then

                          if max> max2 then

                                max2: =a

                          else

                                max: =a;

                end;

        writeln(max: 4: 2,' ',max2: 4: 2);

end.

            или через массив

в массив заносим 2 элемента. в цикле вводим остальные элементы. в массиве находим минимальный и, если введенный следующий элемент (b) больше минимального массива, то записываем b в массив на место наименьшего.

в результате в массиве два максимальных эл-та

 

var

a: array[1..2]of integer;

n,i,min,j,m,b: integer;

begin

        readln(n);

        readln(a[1],a[2]);

        for i: =3 to n do

                begin

                    readln(b); min: =a[1]; m: =1;

                                        for j: =1 to 2 do

                                                if a[j]< min then

                                                begin

                                                      min: =a[j];

                                                      m: =j;

                                                end;

                                        if b> min then

                                              a[m]: =b;

                    end;

                for i: =1 to 2 do

                        writeln(a[i]);

        end.

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

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

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

Caktus Image

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

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

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

    Проект находиться на стадии тестирования и все услуги бесплатны.
  • Могу ли я использовать otvet5GPT в школе?

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

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

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

GTP TOP NEWS