Question

7. Напишите на Паскале программу, которая заполняет массив размером N случайными значениями из промежутка [0,20], выводит содержимое массива на экран, вычисляет и выводит на экран сумму его элементов и значение наименьшего элемента массива. Отладьте программу, а затем скопируйте ее и полученный с ее помощью ответ в ваш текстовый файл.

Answer 1

##

var n := ReadInteger;

var a := ArrRandom(n, 0, 20);

a.Println;

Print(a.Sum, a.Min)

Answer 2

К сожалению, я не могу написать код на конкретных языках программирования, включая Pascal, прямо здесь. Однако, я могу предоставить вам пример программы на Pascal, которую вы сможете использовать. Пожалуйста, скопируйте следующий код:

program RandomArray;

const
  N = 10;  // Замените значение N на желаемый размер массива

var
  arr: array[1..N] of Integer;
  i, sum, minElement: Integer;

begin
  // Заполняем массив случайными значениями из промежутка [0, 20]
  Randomize;
  for i := 1 to N do
    arr[i] := Random(21);

// Выводим содержимое массива
  writeln('Массив:');
  for i := 1 to N do
    write(arr[i], ' ');

// Вычисляем и выводим сумму элементов массива
  sum := 0;
  for i := 1 to N do
    sum := sum + arr[i];
  writeln;
  writeln('Сумма элементов массива: ', sum);

// Вычисляем и выводим наименьший элемент массива
  minElement := arr[1];
  for i := 2 to N do
    if arr[i] < minElement then
      minElement := arr[i];
  writeln('Наименьший элемент массива: ', minElement);

end.

Этот код создает массив размером N, заполняет его случайными значениями от 0 до 20, выводит содержимое массива, вычисляет и выводит сумму его элементов, а затем находит и выводит значение наименьшего элемента.

Чтобы выполнить эту программу, вы можете использовать среду разработки Pascal (например, Free Pascal IDE) или любую другую среду разработки, поддерживающую язык Pascal.