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
Ответы на вопрос:
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
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
dianag14151718.09.2020 14:51
-
Юра2285811.09.2021 09:02
-
ZzzGoshAzzZ24.12.2021 07:19
-
alyona2010711.01.2021 04:09
-
Was123107.03.2021 12:54
-
sargsyantatev118.05.2020 17:45
-
Mornes17.03.2020 07:08
-
Бека67222.08.2021 01:17
-
asetburkutov0030.10.2022 15:21
-
Crackstack1818.02.2021 22:28
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.