Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

Плиз помогитееее))) 1)Вычислить среднее арифметическое массива. 2)Определить количество четных элементов. 3)Вычислить сумму элементов с нечетными номерами.

Ответ оставил Гость

1)

const NN=50;
var
a:array [1..NN] of integer;
i,n:integer;
s:real;
begin
  write(Введите количество элементов массива: );
  readln(n);
  s:=0;
  for i:= 1 to n do
  begin
    readln(a[i]);
    s:=s+a[i];
  end;
 writeln(Среднее арифметическое массива = ,s/n)
 end.

2)

const NN=50;
var
a:array [1..NN] of integer;
i,n:integer;
s:real;
begin
  write(Введите количество элементов массива: );
  readln(n);
  s:=0;
  for i:= 1 to n do
  begin
    readln(a[i]);
    if a[i] mod 2 =0 then s:=s+1;
  end;
 writeln(Количество четных элементов = ,s)
 end.

3)

const NN=50;
var
a:array [1..NN] of integer;
i,n:integer;
s:real;
begin
  write(Введите количество элементов массива: );
  readln(n);
  s:=0;
  for i:= 1 to n do
  begin
    readln(a[i]);
    if i mod 2 =1 then s:=s+a[i];
  end;
 writeln(Cумма элементов с нечетными номерами = ,s)
 end.