(1) вариант 1 написать программу которая вводит с клавиатуры одномерный массив из 10...

Question

(1) вариант
1 написать программу которая вводит с клавиатуры одномерный массив из 10 целых двузначных чисел выводит количество элементов > 28 и их среднее арифметическое
2 написать программу которая выводит с клавиатуры одномерный массив из 6 целых чисел и выводит нечётные
3 написать программу ввода с клавиатуры последовательность целых чисел вычисляющую кол-во и сумму положительно ввёдных чисел

---

Answer 1

1. var a:array[1..10] of integer;
   n, i: integer;
s:real;
begin
for i:=1 to 10 do
readln(a[i]);
s:=0;n:=0;
for i:=1 to 10 do 
if a[i]>28 then begin s:=s+a[i]; n:=n+1 end;
if n>0 then writeln(n,s/n) else writeln('net >28')
end.