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;)

К сожалению, ты не написал на каком тебе надо языке, я выбрал JavaScript
1) var array = [4,5,10,-10,5]; 
var min = 1000000;
for (var i = 0; i < 5; i++) {
if (min>array[i]) {
min = array[i];
 }
 }
alert("Минимальный элемент + "min);

2)var array = [];
for (var i = 0; i < 5; i++) {
var number = prompt("Введите число");
 array.push(number);
}
alert("Ваш массив " + array);
var min = 1000;
var max = 0;
for (var j = 0; j < 5; j++) {
  if (min > array[j]) {
  min = array[j];
  }
}
alert("Минимум = " + min);
for (var k = 0; k < 5; k++) {
if (max < array[k]) {
  max = array[k];
 }
}
alert("Максимум = " + max);

Допустим, что первый болельщик был прав в том, что Наташа займет 1 место. Следовательно, она не может занять второе место, из чего в свою очередь следует, что третий болельщик не был прав в том, что Наташа займет второе место, значит, он был прав в том, что Рита займет третье место. Аналогично, Рита не может занять четвертое место, так как предположительно она на третьем, значит второй болельщик был прав в том, что Люда займет второе место. Остается Маша - четвертое место. Все болельщики правы лишь в одном из своих прогнозов, условие выполняется. Следовательно ответ: 1 место - Наташа, 2 место - Люда, 3 место - Рита и 4 место - Маша