Задачи на цикл с параметром. Помогите пожалуйста,учительница сама придумывает задачи,в интернете нет ответов. 1)С клавиатуры вводятся 20 чисел,среди которых есть положительные и отрицательные. Подсчитать количество положительны...
Задачи на цикл с параметром.
Помогите пожалуйста,учительница сама придумывает задачи,в интернете нет ответов.
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.
Не нашли ответ?
Похожие вопросы