Question

Помогите написать программы в ПАСКАЛЬ. 1. Найти суммы всех положительных и абсолютных значений всех отрицательных элементов массива.2. Найти количество элементов, которые при целочисленном делении на 9 дают остаток 2, и сумму всех остальных элементов.3. Найти произведение минимального и максимального элементов массива.

Answer 1

const

 N=10;

var

 a:array[1..N]of integer;

 i,count,sum,t,max,min:integer;

begin

randomize;

sum:=0; count:=0; t:=0;

max:=-21; min:=21;

for i:=1 to N do

 begin

   a[i]:=random(41)-20;

   write(a[i]:4);

   sum:=sum+abs(a[i]);

   if a[i] mod 9 = 2 then  

     begin

       inc(count);

       t:=t+a[i];

     end;

   if max<a[i] then max:=a[i];

   if min>a[i] then min:=a[i];

 end;

writeln; writeln('Sum: ',sum);

        writeln('Count(x/9=2): ',count);

        writeln('SumOst: ',sum-t);

        writeln('Min: ',min,'  Max: ',max );

        writeln('Min*Max: ',min*max);

end.

Answer 2

Конечно! Вот программы на языке Паскаль для решения каждой из указанных задач:

1. Найти суммы всех положительных и абсолютных значений всех отрицательных элементов массива:

pascalCopy code
program SumPositiveAndAbsNegative;

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

var
  arr: array[1..N] of Integer;
  i, sumPositive, sumAbsNegative: Integer;

begin
  // Заполнение массива (пример)
  for i := 1 to N do
  begin
    Write('Введите элемент массива №', i, ': ');
    Readln(arr[i]);
  end;

  // Инициализация переменных перед вычислением
  sumPositive := 0;
  sumAbsNegative := 0;

  // Подсчет суммы положительных и абсолютных значений отрицательных элементов
  for i := 1 to N do
  begin
    if arr[i] > 0 then
      sumPositive := sumPositive + arr[i]
    else
      sumAbsNegative := sumAbsNegative + Abs(arr[i]);
  end;

  // Вывод результатов
  Writeln('Сумма положительных элементов массива: ', sumPositive);
  Writeln('Сумма абсолютных значений отрицательных элементов массива: ', sumAbsNegative);

end.

2. Найти количество элементов, которые при целочисленном делении на 9 дают остаток 2, и сумму всех остальных элементов:

pascalCopy code
program CountModuloAndSumOthers;

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

var
  arr: array[1..N] of Integer;
  i, countModulo2, sumOthers: Integer;

begin
  // Заполнение массива (пример)
  for i := 1 to N do
  begin
    Write('Введите элемент массива №', i, ': ');
    Readln(arr[i]);
  end;

  // Инициализация переменных перед вычислением
  countModulo2 := 0;
  sumOthers := 0;

  // Подсчет количества элементов с остатком 2 и суммы остальных элементов
  for i := 1 to N do
  begin
    if arr[i] mod 9 = 2 then
      countModulo2 := countModulo2 + 1
    else
      sumOthers := sumOthers + arr[i];
  end;

  // Вывод результатов
  Writeln('Количество элементов с остатком 2 при делении на 9: ', countModulo2);
  Writeln('Сумма элементов массива с другими остатками при делении на 9: ', sumOthers);

end.

3. Найти произведение минимального и максимального элементов массива:

pascalCopy code
program MinMaxProduct;

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

var
  arr: array[1..N] of Integer;
  i, minVal, maxVal, product: Integer;

begin
  // Заполнение массива (пример)
  for i := 1 to N do
  begin
    Write('Введите элемент массива №', i, ': ');
    Readln(arr[i]);
  end;

  // Инициализация переменных перед вычислением
  minVal := arr[1]; // Предполагаем, что минимальное и максимальное значение - первый элемент
  maxVal := arr[1];
  product := arr[1]; // Начинаем с произведения первого элемента

  // Поиск минимального и максимального элементов, а также произведения минимального и максимального элементов
  for i := 2 to N do
  begin
    if arr[i] < minVal then
      minVal := arr[i];

    if arr[i] > maxVal then
      maxVal := arr[i];

    product := product * arr[i];
  end;

  // Вывод результатов
  Writeln('Минимальный элемент массива: ', minVal);
  Writeln('Максимальный элемент массива: ', maxVal);
  Writeln('Произведение минимального и максимального элементов: ', product);

end.

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