Помогите решить через паскаль 1) массив А вводится с клавиатуры , найти среднее арифметическое его элементов с нечетными номерами, размер произвольный. 2) массив А вводится
Помогите решить через паскаль 1) массив А вводится с клавиатуры , найти среднее арифметическое его элементов с нечетными номерами, размер произвольный. 2) массив А вводится с клавиатуры , найти сумму его элементов с четными номерами , произведение отрицательных элементов , количество нечетных элементов , размер произвольный .
3)найти наибольший элемент и его номер в последовательности , элементы которой вводятся с клавиатуры , размер произвольный .
4)найти среднее арифметическое элементов последовательности превосходящих некоторое число С, массив задан датчиком случайных чисел на интервале (-44,35),размер произвольный , значение С вводится с экрана
Гость
Ответ(ы) на вопрос:
Гость 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.
Не нашли ответ?
Похожие вопросы