Массив содержит 10 элементов целого типа. Из положительных элементов массива, имеющих нечетный индекс, сформировать новый массив и найти среднее арифметическое его элементов

code: #pascal
program pr; 
const 
   n = 10; 
var 
   i, j, s: integer; 
   a, c7: array[1..n] of integer; 
 
begin 
   s := 0; 
   j := 0; 
   for i := 1 to n do 
     readln(c7[i]); 
   for i := 1 to n do 
     if (c7[i] > 0) and odd(i) then 
     begin 
       inc(j); 
       a[j] := c7[i] 
     end; 
   if j <> 0 then 
   begin 
     for i := 1 to j do 
     begin 
       s := s + a[i]; 
       write(a[i], ' ') 
     end; 
     writeln; 
     write(s / j: 2: 2) 
   end; 
   readln 
end.

автор: wadking

Поделиться:

Похожие статьи: