Главная

Среднее арифметическое всех чётных элементов массива, стоящих на нечётных местах

сб, 10/27/2012 - 14:54 — tech
Темы учебника
Массивы в Паскале. Одномерные массивы
Задача: 

Получить среднее арифметическое всех чётных элементов массива, стоящих на нечётных местах.

Описание переменных: 

k - счетчик количества элементов, значения которых удовлетворяют условиям:

  • являются четными;
  • стоят на нечетных местах.
Алгоритм решения задачи: 

Для каждого второго элемента, начиная с первого (нечетные элементы), проверяем условие его четности (должен делиться на 2 без остатка).

Программа на языке Паскаль:  

const N = 10;
var arr: array[1..N] of integer;
    i, k: byte;
    sum: integer;
    avr: real;
begin
    writeln('Enter the ten elements of the array:');
    for i:=1 to N do
        read(arr[i]);
    sum := 0;
    i := 1;
    k := 0;
    while i = N do begin
        if (arr[i] mod 2) = 0 then begin
            sum := sum + arr[i];
            k := k + 1
        end;
        i := i + 2
    end;
    writeln(sum);
    if k  0 then begin
        avr := sum / k;
        writeln(avr)
    end
    else
        writeln('No elements');
readln;
end.

  • Добавить комментарий

Комментарии

Пнд, 05/20/2013 - 18:49 — Гость

помогите, пожалуйста с задачей

программа должна вычислять корреляционный момент столбцов матрицы размером 9*5 помогите, пожалуйста, отловить ошибки.

program array;
uses CRT;
var a:array [1..9, 1..5] of real;b:real;c:real;d:real;e:real;i:real;j:real;
begin
function fill_array;{заполнение массива случайными числами}
uses CRT;
begin
for i:=1 to 9 do
for j:=1 to 5 do
b:=random a [i,j];
procedure average;
uses CRT;
var a:array [1..9, 1..5] of real; b:real;c:real;d:real;e:real;i:real;j:real;
begin
c:=(a[11]+a[21]+a[31]+a[41]+a[51]+a[61]+a[71]+a[81]+a[91])/9;
d:=(a[12]+a[22]+a[32]+a[42]+a[52]+a[62]+a[72]+a[82]+a[92])/9;
procedure covariation;
uses CRT;
var a:array [1..9, 1..5] of real;b:real;c:real;d:real;e:real;i:real;j:real;
begin
e:=(a[11]+c)*(a[12]+d);
write e;
end

  • ответить