Question

PascalABC 1. Найти средне арифметическое элементов массива, превосходящих некоторое число С. 2. Вывести только нечетные элементы. 3. Найти среднее арифметическое элементов с нечетными номерами.

Answer 1

var a:array of longint;

i,c,x,n,k:longint;

begin

read(n); //длина массива

a:= new longint[n];

for i:=0 to n-1 do read(a[i]);

read(c);//некоторое число С

for i:=0 to n-1 do

if a[i]>c then

begin

k+=1;

x+=a[i]

end;

writeln(x/k);//ответ на первый пункт

k:=0;

x:=0;

for i:=0 to n-1 do

if i mod 2=0 then

begin

k+=1;

x+=a[i];

print(a[i])//второй пункт

end;

writeln;

write(x/k)// третий пункт

end.

Answer 2

program first;

var a:array[1..100] of integer;

i,s,k,n,c:integer;

sr:real;

begin

read(n); {кол-во элементов массива}

for i:=1 to n do

read(a[i]); {ввод массива}

read(c); {ввод числа C}

s:=0; k:=0;

for i:=1 to n do

if (a[i]>c) then begin s:=s+a[i]; k:=k+1; end;

sr:=s/k; {считаем среднее арефмет.}

writeln(sr); {выводим ср. арефм.}

for i:=1 to n do

if a[i] mod 2<>0 then write(a[i],' '); {делаем 2 пункт}

writeln;

s:=0; k:=0; {обнулим чтобы использовать еще раз}

for i:=1 to n do

if a[i] mod 2<>0 then begin s:=s+a[i]; k:=k+1; end;

sr:=s/k;

writeln(sr);

end.

Answer 3

Для выполнения данных задач в PascalABC, вы можете использовать следующий код:

1. Найти среднее арифметическое элементов массива, превосходящих некоторое число C:

pascalCopy code
program AverageAboveC;
var
  arr: array of Integer;
  n, i, c, sum, count: Integer;
  average: Real;
begin
  Write('Введите размер массива: ');
  Readln(n);
  
  SetLength(arr, n);
  
  for i := 0 to n - 1 do
  begin
    Write('Введите элемент массива №', i + 1, ': ');
    Readln(arr[i]);
  end;
  
  Write('Введите число C: ');
  Readln(c);
  
  sum := 0;
  count := 0;
  
  for i := 0 to n - 1 do
  begin
    if arr[i] > c then
    begin
      sum := sum + arr[i];
      count := count + 1;
    end;
  end;
  
  if count > 0 then
  begin
    average := sum / count;
    Writeln('Среднее арифметическое элементов больше C: ', average:0:2);
  end
  else
    Writeln('В массиве нет элементов больше C.');
end.

2. Вывести только нечетные элементы:

pascalCopy code
program OddElements;
var
  arr: array of Integer;
  n, i: Integer;
begin
  Write('Введите размер массива: ');
  Readln(n);
  
  SetLength(arr, n);
  
  for i := 0 to n - 1 do
  begin
    Write('Введите элемент массива №', i + 1, ': ');
    Readln(arr[i]);
  end;
  
  Writeln('Нечетные элементы массива:');
  for i := 0 to n - 1 do
  begin
    if arr[i] mod 2 <> 0 then
      Writeln(arr[i]);
  end;
end.

3. Найти среднее арифметическое элементов с нечетными номерами:

pascalCopy code
program AverageOfOddIndexedElements;
var
  arr: array of Integer;
  n, i, sum, count: Integer;
  average: Real;
begin
  Write('Введите размер массива: ');
  Readln(n);
  
  SetLength(arr, n);
  
  for i := 0 to n - 1 do
  begin
    Write('Введите элемент массива №', i + 1, ': ');
    Readln(arr[i]);
  end;
  
  sum := 0;
  count := 0;
  
  for i := 0 to n - 1 do
  begin
    if (i + 1) mod 2 <> 0 then
    begin
      sum := sum + arr[i];
      count := count + 1;
    end;
  end;
  
  if count > 0 then
  begin
    average := sum / count;
    Writeln('Среднее арифметическое элементов с нечетными номерами: ', average:0:2);
  end
  else
    Writeln('В массиве нет элементов с нечетными номерами.');
end.

Вы можете скомпилировать и выполнить каждую из этих программ в PascalABC, чтобы получить результаты.