Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Задачи на цикл с параметром.
Помогите пожалуйста,учительница сама придумывает задачи,в интернете нет ответов.
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.