Задачи на цикл с параметром.
Помогите пожалуйста,учительница сама придумывает задачи,в интернете нет ответов.

1)С клавиатуры вводятся 20 чисел,среди которых есть положительные и отрицательные. Подсчитать количество положительных чисел.

2)С клавиатуры вводятся оценки двадцати учащихся по физике. Найти среднее арифметическое этих оценок. — Правильный ответ на вопрос найдете ниже

Ответ: Спасибо больше)

Ответ: Задание №1var a:array[1..20] of integer; i,k:integer; begin k:=0; writeln(‘Введите числа’); for i:=1 to 20 do begin read(a[i]); if a[i]>0 then k:=k+1; end; writeln(‘Количество положительных чисел = ‘,k); end.Задание №2var a:array[1..20] of integer; i,sum:integer; begin sum:=0; writeln(‘Введите оценки’); for i:=1 to 20 do begin read(a[i]); sum:=sum+a[i]; end; writeln(‘Среднее арифметическое этих оценок = ‘,sum/20); end.