Question

Найти Элементы больше среднего значения во второй половине массива (Pascal ABC)Пожалуйста,срочно надо(

Answer 1

Program Pascal1;

const
N = 5; M = 6;

var
A: array [1..N, 1..M] of integer;
i, j, k: integer;
s: real;

begin
cls;
k := 0; s := 0;
randomize;
for i := 1 to N do
begin
for j := 1 to M do
begin
A[i, j] := random(50) - 10;
write(A[i, j]:6);
s := s + A[i, j] //Сумма элементов
end;
writeln
end;
s := s / (N * M); //Среднее арифметическое (сумму делим на количество ВСЕХ чисел)
writeln('Srednee ', s:0:3);
for i := 1 to N do
for j := 1 to M do
if a[i, j] > s then k := k + 1; //Считаем элементы большие среднего
writeln('Kolichestvo ', k)
end.


Для всего массива, для второй половины допиши сам

Answer 2

Конечно! Вот пример кода на языке Pascal ABC, который находит элементы больше среднего значения во второй половине массива:

pascalCopy code
program ElementsGreaterThanAverage;

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

var
  arr: array[1..N] of Integer;
  i, sum, count: Integer;
  average: Real;

begin
  // Ввод элементов массива
  writeln('Введите элементы массива:');
  for i := 1 to N do
    readln(arr[i]);

  // Вычисление среднего значения
  sum := 0;
  for i := N div 2 + 1 to N do
    sum := sum + arr[i];
  average := sum / (N div 2);

  // Поиск и вывод элементов больше среднего значения
  writeln('Элементы больше среднего значения во второй половине массива:');
  count := 0;
  for i := N div 2 + 1 to N do
  begin
    if arr[i] > average then
    begin
      writeln(arr[i]);
      count := count + 1;
    end;
  end;

  // Если не найдено элементов, выводим сообщение
  if count = 0 then
    writeln('Нет элементов больше среднего значения.');

  readln;
end.

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

Убедитесь, что перед использованием данного кода у вас установлена и настроена среда разработки Pascal ABC.