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

Предыдущий
вопрос Следующий
вопрос

Пример кода для нахождения среднеарифметического элементов массива, превосходящих число C:
program AverageAboveC;

var
arr: array of Integer;
n, C, sum, count: Integer;
average: Real;

begin
Write('Введите размер массива: ');
ReadLn(n);

SetLength(arr, n);

WriteLn('Введите элементы массива: ');
for i := 0 to n-1 do
begin
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;

average := sum / count;

WriteLn('Среднее арифметическое элементов массива, превосходящих число C: ', average:0:2);
end.

2. Пример кода для вывода только нечетных элементов массива:

program OddElements;

var
arr: array of Integer;
n, i: Integer;

begin
Write('Введите размер массива: ');
ReadLn(n);

SetLength(arr, n);

WriteLn('Введите элементы массива: ');
for i := 0 to n-1 do
begin
ReadLn(arr[i]);
end;

WriteLn('Нечетные элементы массива: ');
for i := 0 to n-1 do
begin
if arr[i] mod 2 <> 0 then
begin
WriteLn(arr[i]);
end;
end;
end.

3. Пример кода для нахождения среднеарифметического элементов с нечетными номерами:

program AverageOddIndexes;

var
arr: array of Integer;
n, i, sum, count: Integer;
average: Real;

begin
Write('Введите размер массива: ');
ReadLn(n);

SetLength(arr, n);

WriteLn('Введите элементы массива: ');
for i := 0 to n-1 do
begin
ReadLn(arr[i]);
end;

sum := 0;
count := 0;

for i := 1 to n-1 step 2 do
begin
sum := sum + arr[i];
count := count + 1;
end;

average := sum / count;

WriteLn('Среднее арифметическое элементов с нечетными номерами: ', average:0:2);
end.