Задачи на цикл с параметром.
Помогите пожалуйста,учительница сама придумывает задачи,в интернете нет ответов.
1)С клавиатуры вводятся 20 чисел,среди которых есть положительные и отрицательные. Подсчитать количество положительных чисел.
2)С клавиатуры вводятся оценки двадцати учащихся по физике. Найти среднее арифметическое этих оценок.
Ответы
Ответ дал:
0
Задание №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.
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.
Ответ дал:
0
Спасибо больше)
Похожие вопросы
2 года назад
2 года назад
7 лет назад
10 лет назад