М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Ариана145
Ариана145
21.05.2021 11:49 •  Информатика

Что делает программа ,и ещё нужно составить условие к задаче?
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.

👇
Открыть все ответы
Ответ:
stepanoganezov
stepanoganezov
21.05.2021

// 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

Объяснение:

4,5(92 оценок)
Ответ:
fdimon
fdimon
21.05.2021

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

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

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

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

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

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

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

4,4(10 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ