Question

Написать ОДНУ программу, которая выводит (на отдельной строке) : 1) все элементы массива в строку 2) элементы массива увеличенные в 10 раз 3) минимальный элемент массива 4) максивальный элемент массива 5) сумму элементов массива Пример 1 2 3 4 5 6 7 8 9 10 10 20 30 40 50 60 70 80 90 100 10 100 550 ПАСКАЛЬ

Answer 1

Ответ:

PascalABC

Объяснение:

begin

   WriteLn('Введите размер массива N: ');

   var n := ReadInteger;

   WriteLn('Введите элементы массива: ');

   var a := ReadArrInteger(n);

   a.Println;

   foreach var i in a do Write(i * 10,' '); WriteLn;

   WriteLn(a.Min);

   WriteLn(a.Max);

   WriteLn(a.Sum);

end.

Answer 2

Конечно, вот пример программы на языке Pascal, который выполняет задачу, описанную вами:

program ArrayOperations;

const
  arraySize = 10; // Размер массива

var
  arr: array[1..arraySize] of Integer; // Объявление массива
  i, minValue, maxValue, sum: Integer;

begin
  // Заполнение массива значениями от 1 до 10 (можно изменить на другие значения)
  for i := 1 to arraySize do
    arr[i] := i;

// Вывод всех элементов массива в строку
  for i := 1 to arraySize do
    Write(arr[i], ' ');
  Writeln;

// Увеличение элементов массива в 10 раз и вывод на экран
  for i := 1 to arraySize do
  begin
    arr[i] := arr[i] * 10;
    Write(arr[i], ' ');
  end;
  Writeln;

// Нахождение минимального элемента массива
  minValue := arr[1];
  for i := 2 to arraySize do
  begin
    if arr[i] < minValue then
      minValue := arr[i];
  end;
  Write('Минимальный элемент: ', minValue);
  Writeln;

// Нахождение максимального элемента массива
  maxValue := arr[1];
  for i := 2 to arraySize do
  begin
    if arr[i] > maxValue then
      maxValue := arr[i];
  end;
  Write('Максимальный элемент: ', maxValue);
  Writeln;

// Нахождение суммы элементов массива
  sum := 0;
  for i := 1 to arraySize do
    sum := sum + arr[i];
  Write('Сумма элементов: ', sum);
  Writeln;

Readln;
end.

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