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

Задание №1

var 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.

Задание №2

var 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.