Question

Решить через паскаль 1) массив а вводится с клавиатуры , найти среднее арифметическое его элементов с нечетными номерами, размер произвольный. 2) массив а вводится с клавиатуры , найти сумму его элементов с четными номерами , произведение отрицательных элементов , количество нечетных элементов , размер произвольный . 3)найти наибольший элемент и его номер в последовательности , элементы которой вводятся с клавиатуры , размер произвольный . 4)найти среднее арифметическое элементов последовательности превосходящих некоторое число с, массив задан датчиком случайных чисел на интервале (-44,35),размер произвольный , значение с вводится с экрана

Answer 1

1) var n,a,kol,sum,i:int64;
begin
read(n);
for i:=1 to n do begin
   read(a);
   if (i mod 2)=1 then begin
                       inc(sum,a);
                       inc(kol);
                       end;
   end;
writeln(sum/kol);
end.
2)var n,a,kol,sum,i,pr:int64;
begin
read(n);
for i:=1 to n do begin
   read(a);
   if (i mod 2)=0 then begin
                       inc(sum,a);
                       end;
   if a<0 then pr:=pr*a;
   if (a mod 2)=1 then inc(kol);
   end;
writeln(sum,' ',pr,' ',kol);
end.
3) var ma,n,a,i:int64;
begin
read(n);
for i:=1 to n do begin
   read(a);
   if (a>ma) then begin
                  ma:=a;
                  end;
   end;
writeln(ma);
end.