Помогите решить через паскаль

1) массив А вводится с клавиатуры, найти среднее арифметическое его элементов с нечетными номерами, размер произвольный.

2) массив А вводится с клавиатуры, найти сумму его элементов с четными номерами, произведение отрицательных элементов, количество нечетных элементов, размер произвольный.

3) найти наибольший элемент и его номер в последовательности, элементы которой вводятся с клавиатуры, размер произвольный.

4) найти среднее арифметическое элементов последовательности превосходящих некоторое число С, массив задан датчиком случайных чисел на интервале (-44,35), размер произвольный, значение С вводится с экрана

Question

Информатика

Ивон

7 сентября, 15:21

Помогите решить через паскаль

1) массив А вводится с клавиатуры, найти среднее арифметическое его элементов с нечетными номерами, размер произвольный.

2) массив А вводится с клавиатуры, найти сумму его элементов с четными номерами, произведение отрицательных элементов, количество нечетных элементов, размер произвольный.

3) найти наибольший элемент и его номер в последовательности, элементы которой вводятся с клавиатуры, размер произвольный.

4) найти среднее арифметическое элементов последовательности превосходящих некоторое число С, массив задан датчиком случайных чисел на интервале (-44,35), размер произвольный, значение С вводится с экрана

+4

Ответы (1)

Знаете ответ на вопрос?

Лидя · 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.