Массив содержит 10 элементов целого типа. Из положительных элементов массива, имеющих нечетный индекс, сформировать новый массив и найти среднее арифметическое его элементов
Категория: Delphi/Pascal
2012-01-05 15:25:08
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
Поделиться: