Question

Создать массив из 30 элементов, найти сумму и произведение элементов, минимальный и максимальный элемент массива, программу выполнить в Pascal ABC

Answer 1

Ответ:

Program P_1; {Создать массив из 30 элементов, найти сумму и произведение элементов, минимальный и максимальный элемент массива, программу выполнить в Pascal ABC}

Const n=30;

Var m: array[1..n] of real;

Var i,j: integer;

Var S,P:real;  

Var min,max: real;

begin

 writeln ('ввод массива m из ',n,' элементов:');

 for i:=1 to n do  

   read(m[i]);

 for j:=1 to n do

   begin

   write('m[',j,']='); writeln(m[j]);

 end;

 S:=0;

 for i:=1 to n do

   S:=S+m[i];

 writeln('Сумма всех элементов массива =',S);

 P:=1;

 for i:=1 to n do

   P:=P*m[i];

 writeln('Произведение всех элементов массива =',P);

 min := m [1];

 for i := 1 to n do  

 if m[i] < min then  

 min := m[i];

 writeln ('Минимальный элемент массива ', min);

 max := m [1];

 for i := 1 to n do  

 if m[i] > max then  

 max := m[i];

 writeln ('Макимальный элемент массива ', max);

end.

Answer 2

Конечно, вот пример программы на Pascal ABC, который создает массив из 30 элементов, находит сумму и произведение элементов, а также минимальный и максимальный элементы массива:

pascalCopy code
program ArrayOperations;

const
  N = 30; // Размер массива

var
  arr: array[1..N] of Integer; // Объявляем массив
  i, sum, product, minElem, maxElem: Integer;

begin
  // Заполняем массив случайными значениями
  Randomize;
  for i := 1 to N do
    arr[i] := Random(100); // Случайное число от 0 до 99

  // Инициализируем переменные перед началом обработки
  sum := 0;
  product := 1;
  minElem := arr[1];
  maxElem := arr[1];

  // Находим сумму, произведение, минимум и максимум
  for i := 1 to N do
  begin
    sum := sum + arr[i];
    product := product * arr[i];

    if arr[i] < minElem then
      minElem := arr[i];

    if arr[i] > maxElem then
      maxElem := arr[i];
  end;

  // Выводим результаты
  WriteLn('Массив элементов:');
  for i := 1 to N do
    Write(arr[i], ' ');

  WriteLn;
  WriteLn('Сумма элементов: ', sum);
  WriteLn('Произведение элементов: ', product);
  WriteLn('Минимальный элемент: ', minElem);
  WriteLn('Максимальный элемент: ', maxElem);

  ReadLn;
end.

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