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

Question

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

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

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

Answer 1

Задание №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.