Question

Помогите пожалуйста решить задачу в Паскале
Вывести на экран все натуральные числа от 15 до В. Вводятся К произвольных чисел. Вывести первый элемент, который больше 100. Найти среднюю оценку за контрольную работу, если в классе 16 человек.

Answer 1

№1
var i,b:integer;
begin
readln(b);
for i:=15 to b do
write(i,' ');
end.


№2.
var k,q,i,a:integer;
begin
readln(k);
q:=0;
for i:=1 to k do begin
readln(a);
if (a>100)and(q=0) then
q:=a; 
end;
writeln(q);
end.


№3.
var a,s,i:integer;
begin
s:=0;
for i:=1 to 16 do
begin
readln(a);
s:=a+s;
end;
writeln(s/16:3:2);
end.