1) Определить средние арифметические элементы с чётным индексом и среднее арифметическое с нечётным индексом.

1

Ответы и объяснения

Лучший Ответ!
  • Sky09
  • профессор
2013-12-01T16:27:23+04:00
Uses crt;
const
     N=30;
var mas:array[1..N] of integer;
     i,sum1, sum2,k1,k2:integer;
     sr1,sr2:real;
beginfor i:=1 to N do
    readln(mas[i]);
for i:=1 to N do
    if i mod 2=0 then
    begin
         sum1:=sum1+mas[i];
         inc(k1);
    end
    else
    begin
         sum2:=sum2+mas[i];
         inc(k2);
    end;
writeln;
sr1:=sum1/k1; writeln('С четными индексами: ',sr1);
sr2:=sum2/k2; writeln('С нечетными индексами: ',sr2);
end.