Что делают операторы inc в данной задаче?

@jnya · Регистрация: 08.04.2010

Author24 — интернет-сервис помощи студентам

4. Дан одномерный массив из n целых чисел. Составить программу вычисления
а) суммы элементов, стоящих на четных местах;
б) суммы четных элементов;
в) среднего арифметического четных элементов

Что делают операторы inc?

Pascal

Program masiv_z_4;
uses crt;
const n=10;
var i,s_chetn,s_ch_m,n_ch:integer;
    a:array [1..n] of integer;
    sr_ar:real;
begin
    sr_ar:=0;
    s_chetn:=0;
    s_ch_m:=0;
    n_ch:=0;
    for i:=1 to n do
    begin
       a[i]:=random(100);
           if (i mod 2 = 0) then inc(s_ch_m,a[i]);
       if (a[i] mod 2 = 0) then
        begin
          inc(s_chetn,a[i]);
          inc(n_ch);
        end;
    end;
    sr_ar:=s_chetn/n_ch;
    writeln('Massiv:');
    for i:=1 to n do write(a[i],' ');
    writeln ('Summa elementov na chetnyh mestah: ',s_ch_m,' Summa chetnyh elementov: ',s_chetn,' Srednee arifmeticheskoe chetnyh elementov: ',sr_ar:0:3);
    readln;
    readln;
end.

@КонецСвета · 21.12.2011, 13:37

inc - процедура увеличения переменной
если inc(n_ch) - то увеличить на единицу переменную n_ch
в твоем случае inc(s_ch_m,a[i]);
переменная s_ch_m увеличивается на значение каждого элемента массива, который соответствует заданному условию
эти процедуры ожно заменить выражениями
inc(n_ch) заменить на n_ch:=n_ch+1
inc(s_ch_m,a[i]); заменить на s_ch_m:=s_ch_m+a[i]

@WebMax 2.0 · 21.12.2011, 13:37

Процедура inc(x) = x+1, inc(x,y) = x+y, t.e. inc(s_ch_m,a[i]) = s_ch_m + a[i];

@КонецСвета Почетный модератор 7966 / 3937 / 2464 Регистрация: 30.10.2011 Сообщений: 5,377
	21.12.2011, 13:37	2
	inc - процедура увеличения переменной если inc(n_ch) - то увеличить на единицу переменную n_ch в твоем случае inc(s_ch_m,a[i]); переменная s_ch_m увеличивается на значение каждого элемента массива, который соответствует заданному условию эти процедуры ожно заменить выражениями inc(n_ch) заменить на n_ch:=n_ch+1 inc(s_ch_m,a[i]); заменить на s_ch_m:=s_ch_m+a[i] 2

@WebMax 2.0 --\.founder./-- 565 / 565 / 392 Регистрация: 20.10.2011 Сообщений: 867
	21.12.2011, 13:37	3
	Процедура inc(x) = x+1, inc(x,y) = x+y, t.e. inc(s_ch_m,a[i]) = s_ch_m + a[i]; 1