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.

Объяснение:

Answer 3

Конечно, вот пример решения этих задач на языке Паскаль:

1. Заполнение массива D(20) случайными числами из отрезка [-30,-10] и вывод на экран:

pascalCopy code
program Task1;

var
  D: array[1..20] of Integer;
  i: Integer;

begin
  Randomize;

  for i := 1 to 20 do
  begin
    D[i] := Random(-30, -10);
    Write(D[i], ' ');
  end;
  
  ReadLn;
end.

2. Заполнение массива D(20) случайными числами из отрезка [-30,-10], вывод на экран и нахождение суммы элементов:

pascalCopy code
program Task2;

var
  D: array[1..20] of Integer;
  i, sum: Integer;

begin
  Randomize;
  sum := 0;

  for i := 1 to 20 do
  begin
    D[i] := Random(-30, -10);
    sum := sum + D[i];
    Write(D[i], ' ');
  end;
  
  Writeln;
  Writeln('Сумма элементов: ', sum);
  ReadLn;
end.

3. Заполнение массива A(15) случайными числами из отрезка [-5,20], вывод на экран, нахождение минимального элемента и его номера:

pascalCopy code
program Task3;

var
  A: array[1..15] of Integer;
  i, min, minIndex: Integer;

begin
  Randomize;
  min := 21;  // Начальное значение больше диапазона значений

  for i := 1 to 15 do
  begin
    A[i] := Random(-5, 20);
    Write(A[i], ' ');

    if A[i] < min then
    begin
      min := A[i];
      minIndex := i;
    end;
  end;
  
  Writeln;
  Writeln('Минимальный элемент: ', min);
  Writeln('Номер минимального элемента: ', minIndex);
  ReadLn;
end.

4. Заполнение массива A(20) случайными числами из отрезка [-70,-10], вывод на экран, нахождение суммы и произведения элементов:

pascalCopy code
program Task4;

var
  A: array[1..20] of Integer;
  i, sum, product: Integer;

begin
  Randomize;
  sum := 0;
  product := 1;

  for i := 1 to 20 do
  begin
    A[i] := Random(-70, -10);
    sum := sum + A[i];
    product := product * A[i];
    Write(A[i], ' ');
  end;
  
  Writeln;
  Writeln('Сумма элементов: ', sum);
  Writeln('Произведение элементов: ', product);
  ReadLn;
end.

Примечание: Эти примеры предполагают, что у вас есть среда разработки, поддерживающая язык Паскаль, и вы можете запустить эти программы для проверки.