Сформировать одномерный массив из 6 целых чисел,элементы которого вводятся с клавиатуры.Подсчитать среднее арифметическое элементов с нечетными номерами.
Answers & Comments
saypl
Var a:array[1..6] of integer; i,k,s:integer; begin for i:=1 to 6 do read(a[i]); k:=0; s:=0; for i:=1 to 6 do if i mod 2 = 1 then begin k:=k+1; s:=s+a[i]; end; writeln('Среднее арифметическое элементов массива с нечетными номерами = ',s/k); end.
Answers & Comments
begin
for i:=1 to 6 do read(a[i]);
k:=0; s:=0;
for i:=1 to 6 do
if i mod 2 = 1 then begin k:=k+1; s:=s+a[i]; end;
writeln('Среднее арифметическое элементов массива с нечетными номерами = ',s/k);
end.