Что делает программа , и ещё нужно составить условие к задаче? program two; var a: array [1..5] of integer; p, max, j, i : integer; begin randomize; for i:=1 to 5 do begin a[i]:=random(15)-7; write(a[i]:3); end; writeln; max:=a[1]*a[2]; for i:=1 to 4 do for j:=i+1 to 5 do begin p:=a[i]*a[j]; if p>max then max:=p; end; for i:=1 to 4 do for j:=i+1 to 5 do begin if a[i]*a[j]=max then write(i:3, j:3); end; END.

// PascalABC.NET 3.2, сборка 1457 от 29.05.2017

// Внимание! Если программа не работает, обновите версию!

begin

 Writeln('*** Исходный массив ***');

 var z:=MatrRandom(4,6,10,80);

 z.Println(4); Writeln(4*z.ColCount*'-');

 var t:=z.ElementsWithIndexes.MaxBy(x->x[2]);

 Writeln('Максимальный элемент z[',t[0]+1,',',t[1]+1,']=',t[2])

end.

Пример

*** Исходный массив ***

 47  18  64  34  29  42

 68  55  80  68  44  34

 15  51  43  75  32  52

 21  38  36  48  58  69

Максимальный элемент z[2,3]=80

Объяснение:

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

2. Первый человекоподобный робот был сконструирован Леонардо да Винчи в 1495 году. Это был рыцарь шевелить руками и вращать головой. То есть человекоподобых роботов стали создавать с 1495-ых годов.

3. Экономическая эффективность

Обеспечение качества

Оптимизированная эффективность производства

Ограничение работы человека в опасных условиях, поскольку

(Вот, надеюсь правильно, удачи тебе!)