Есть ответ 👍

Решение необходимо на языке паскаль. (сроочно! )

125
271
Посмотреть ответы 1

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


1. со временем и так будут учить // pascalabc.net 3.2, сборка 1353 от 27.11.2016 // внимание! если программа не работает, обновите версию! begin   var n: =readinteger('n=');   var k: =readinteger('введите 1< k< =n: ');   if (k> n) or (k< 1) then exit;   var a: =matrrandomreal(n,n,1,20); a.println(7,2);   k-=1;   var d: =a[k,k];   writeln(n*7*'-');   for var j: =0 to n-1 do a[k,j]/=d; a.println(7,2) end. пример n= 5 введите 1< k< =n: 2   15.11    1.07    2.01    6.33    8.63   13.26  14.96  13.36    9.87  17.39   14.87  19.89  16.94  10.77  17.86   18.16  19.99  10.16    9.89    5.42     4.78  13.60    6.89  19.56    1.25   15.11    1.07    2.01    6.33    8.63     0.89    1.00    0.89    0.66    1.16   14.87  19.89  16.94  10.77  17.86   18.16  19.99  10.16    9.89    5.42     4.78  13.60    6.89  19.56    1.25 2. а пока в школах учат писать вот так. хорошо видно, насколько школа отстает от современных технологий. const   nn=20; var   a: array[1..nn,1..nn] of real;   i,j,n,k: integer;   d: real; begin   write('n= '); read(n);   write('введите 1< k< =n: ');   read(k);   if (k> n) or (k< 1) then exit;   randomize;   for i: =1 to n do begin       for j: =1 to n do begin           a[i,j]: =19*random+1;           write(a[i,j]: 7: 2)           end;       writeln       end;   d: =a[k,k];   for i: =1 to 7*n do write('-');   writeln;   for j: =1 to n do a[k,j]: =a[k,j]/d;   for i: =1 to n do begin       for j: =1 to n do write(a[i,j]: 7: 2);       writeln       end end.

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

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

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

Caktus Image

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

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

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

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

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

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

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

GTP TOP NEWS