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

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

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

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

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

Question

Информатика

Агап

26 октября, 19:12

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

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

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

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

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

+5

Ответы (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.