Procedure direct(var x: matrice; t: integer); label linie_urmatoare;
var k, l: integer; r: real;
begin
for i: integer :=1 to t-1 do
begin
if x[i,i]=0 then
begin
k:=i;
for j: integer := i+1 to n do if x[j,i] <> 0 then k:=j;
if k = i then goto linie_urmatoare
else for j: integer :=1 to t+1 do
begin
r := x[i,j];
x[i,j] := x[k,j];
x[k,j] := r;
end;
end;
for j: integer :=i+1 to t do
begin
r := -x[j,i] / x[i,i];
for k:= i to t+1 do x[j,k] := x[j,k] + x[i,k] * r;
end;
linie_urmatoare: end;
end;

решить проблему с "Параметр цикла for в PascalABC.NET должен описываться в заголовке цикла" (ошибка в строке - for k:= i to t+1 do x[j,k] := x[j,k] + x[i,k] * r;)

233

366

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

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

MarinaDonut648

Информатика

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

Var a: array[1..38] of integer; i: integer; begin writeln('изначальный массив'); for i: = 1 to 76 do if i< 39 then begin a[i]: =random(51) - 20; write(a[i],' '); end else begin if i=39 then begin writeln; writeln('получившийся массив'); end; if ((a[i-38] mod 10) = 4) or ((a[i-38] mod 7) = 0) then a[i-38]: =100; write(a[i-38],' '); end; end.

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

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

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

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

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

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

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

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

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

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