По одноколейной железной шли на встречу друг другу 2 товарных поезда. в каждом из них по 8 вагонов. на станции, где они встретились , от главного пути отходит боковая ветка(тупик), который может вместить только 4 вагона и тепловоз, как должны действовать машинисты , чтобы составы разъехались и продолжили путь в нужных направлениях?

Вот держи если поймешь

var

  N: array [1..15] of 1..15; {Массив, в который записываются номера положительных элементов массива х}

  x: array [1..15] of real; //Массив х

  i: integer; //Переменная для цикла

  Number: integer; //Сколько номеров было записано

begin

  Number:= 0; //Обнуляем счетчик номеров

  for i:= 1 to 15 do   //Вводим с клавиатуры массив х

  begin

    writeln('Введите ', i, ' элемент массива х');

    readln(x[i]);

    if x[i] > 0 then  {Если введенный элемент массива х положительный, то прибавляем к счетчику добавленных номеров 1 и присваиваем соответствующему элементу массива N номер элемента}

    begin

      Number:= Number + 1;

      N[Number]:= i;

    end;

  end;

  write('Номера положительных элементов массива х:  ');

  for i:= 1 to Number do write(n[i], '  '); //Выводим записанные номера элементов

  writeln; {Переход на новую строку, чтобы при следующем запуске программы информация выводилась с новой строки}

end.

 

Программа отдельно вычисляет произведения строк и столбцов заданных ячеек.

Program n1;
Uses CRT;
Const n=10;
Var a: array[1..n,1..n] of integer;
i,j,x1,x2,y1,y2: integer;
p1,p2,p3,p4: longint;
begin
ClrScr;
For i:=1 to n do
begin
For j:=1 to n do
begin
a[i,j]:=random(10);
a[i,j]:=a[i,j]+1;
write(a[i,j]:3);
end;
writeln;
end;
Writeln('Vvedite pervyu paru koordinat');
Readln(x1,y1);
Writeln('Vvedite vtoruu paru koordinat');
Readln(x2,y2);
p1:=1; p2:=1; p3:=1; p4:=1;
For i:=1 to n do
begin
p1:=p1*a[i,y1];
p2:=p2*a[i,y2];
end;
For i:=1 to n do
begin
p3:=p3*a[x1,j];
p4:=p4*a[x2,j];
end;
Writeln('Proizvedenie strok = ',p1*p2);
Writeln('Proizvedenie stolbcov = ',p3*p4);
readln
end.