Есть ответ 👍

Дан массив p (n, n). элементы выше главной диагонали заменить на ноль, а ниже главной диагонали – округлить. найти ошибку! я написала программу, но он не округляет числа и не все значения округляет до 0. program lab5; var p: array [1..10,1..15] of real; i, j, n, z: integer; begin writeln('введи n'); read(n); writeln('введи массив p'); for i: =1 to n do for j: =1 to n do read(p[i,j]); z: =0; for i: =1 to n do begin if i if i> j then p[i,j]: =round(p[i,j]); end; for i: =1 to n do for j: =1 to n do writeln ('p[',i,j,']= ',p[i,j]); end.

294
473
Посмотреть ответы 2

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


Program lab5; const n=5; var p: array [1..n,1..n] of real; i, j : integer;   begin randomize; writeln('исходный массив p: '); for i: =1 to n do    begin   for j: =1 to n do   begin   p[i,j]: =10*random;   write(p[i,j]: 5: 1);   end;   writeln;   end; for i: =1 to n do    for j: =1 to n do   if j> i then p[i,j]: =0 else p[i,j]: =round(p[i,j]); writeln('изменённый массив p: '); for i: =1 to n do    begin   for j: =1 to n do write(p[i,j]: 5: 1);   writeln;   end; end. пример: исходный массив p:   6.0   6.5   4.2   0.6   4.6   5.7   8.8   0.3   6.2   9.0   3.0   5.3   4.0   6.0   4.8   6.0   3.0   5.0   5.3   8.7   8.9   8.8   6.8   5.3   5.1 изменённый массив p:   6.0   0.0   0.0   0.0   0.0   6.0   9.0   0.0   0.0   0.0   3.0   5.0   4.0   0.0   0.0   6.0   3.0   5.0   5.0   0.0   9.0   9.0   7.0   5.0   5.0
vauguq
4,8(59 оценок)

Pascalabc.net 3.3.5, сборка 1640 от 17.03.2018 внимание! если программа не работает, обновите версию! begin   var s: =readlnstring;   s: =s+s.inverse.replace('(',')');   s.println end. пример (abc(def(g (abc(def(gg)fed)cba)

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

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

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

Caktus Image

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

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

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

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

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

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

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

GTP TOP NEWS