23.09.2020 10:45

Есть ответ 👍

Вматрице a(n*n) поменять местами первый элемент с наименьшим диагональным элементом. паскаль

152

223

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

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

JackTheBit

Информатика

4,6(59 оценок)

// pascalabc.net 3.3 begin var n: =readinteger('n ='); var a: =matrrandom(n,n,-10,10).println(5); var i: =a.elementswithindexes.where(k-> k[2]=k[1]). select(k-> k[0]).toarray.indexmin; swap(a[0,0],a[i,i]); writeln('* * * * * * *'); a.println(5); end. пример: n = 4 7 9 -7 -2 5 9 -5 5 1 7 2 4 -6 0 -4 7 * * * * * * * 2 9 -7 -2 5 9 -5 5 1 7 7 4 -6 0 -4 7

1Кat3

Информатика

4,5(47 оценок)

Pascalabc.net 3.3.5, сборка 1640 от 17.03.2018 внимание! если программа не работает, обновите версию! begin var n: =readinteger('количество строк/столбцов в матрице: '); writeln('*** исходная матрица ***'); var a: =matrrandom(n,n,-99,99); a.println(4); writeln(4*a.colcount*'-'); var k: =range(0,n-1).select(i-> a[i,i]).toarray.indexmin; swap(a[0,0],a[k,k]); writeln('*** результат ***'); a.println(4) end. пример количество строк/столбцов в матрице: 5 *** исходная матрица *** -54 0 45 24 72 -90 46 54 46 50 -51 85 -76 -64 -27 -14 -33 -66 2 71 43 -92 77 58 -22 *** результат *** -76 0 45 24 72 -90 46 54 46 50 -51 85 -54 -64 -27 -14 -33 -66 2 71 43 -92 77 58 -22

nmigutsa

Информатика

4,6(87 оценок)

program t;

var

a,c: real;

i: integer;

begin

i: =1;

a: =1000;

write('1');

while(i< > 6) do

begin

a: =a+a*(2*0.01);

inc(i);

end;

writeln('спустя ',i,' месяцев =',a: 4: 2);

a: =1000;

i: =1;

write('2');

while(true) do

begin

a: =a+a*(2*0.01);

inc(i);

if(a> 1200)then begin writeln('через ',i); break; end;

end;

a: =1000;

c: =0;

i: =1;

write('3');

while(true) do

begin

c: =a*(2*0.01);

a: =a+c;

inc(i);

if(c> 50) then begin writeln('через ',i,' месяцев'); break; end;

end;

end.

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

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

Задай свой вопрос

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

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

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

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

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

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

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