Question

Паскаль
1. Заполнить массив D(20) случайными числами из отрезка [-30,-10] и вывести его на экран.
2. Заполнить массив D(20) случайными числами из отрезка [-30,-10] и вывести его на экран, найти их сумму.
3.Заполнить массив A(15) случайными числами из отрезка [-5,20] и вывести его на экран, найти минимальный элемент массива и номер минимального элемента.
4.Заполнить массив A(20) случайными числами из отрезка [-70,-10] и вывести его на экран, найти сумму и произведение элементов.

Answer 1

===== PascalABC.NET =====

begin

 var D := ArrRandom(20, -30, -10);

 D.Println; // здесь №1 заканчивается, а №2 еще продолжается

 Writeln('Сумма = ', D.Sum); // №2

 var A := ArrRandom(15, -5, 20);

 A.Println;

 var i := A.IndexMin;

 Writeln('Минимальный элемент A[', i + 1, '] = ', A[i]); // №3

 A := ArrRandom(20, -70, -10);

 A.Println;

 Writeln('Сумма = ', A.Sum, ', произведение = ',

     A.Aggregate(BigInteger.One, (p, q) -> p * q))

end.

Answer 2

Ответ:

PascalABC.NET

#1

begin

 var D := ArrRandom(20, -30, -10).Println;

end.

#2

begin

 var D := ArrRandom(20, -30, -10).Println.Sum.Println;

end.

#3

begin

 var A := ArrRandom(15, -5, 20);

 A.Println;

 A.IndexOf(A.Min.Println).Println;

end.

#4

begin

 var A := ArrRandom(20, -70, -10).Println;

 A.Sum.Println;

 A.Product.Print;

end.

Объяснение: