Известны оценки по физике каждого из 20 учеников класса. Определить среднюю оценку по классу

[sinid]

1.Известны оценки по физике каждого из 20 учеников
класса. Определить среднюю оценку по классу.
var
a:array[1..20]of integer;
s:real;
i:integer;
begin
for i:=1 to 20 do
read(a[i]);
s:=0;
for i:=1 to 20 do
s:=s+a[i];
s:=s/20;
writeln(s:0:4);
end.
2. .Дана непустая последовательность целых чисел, окан
чивающаяся числом 100. Определить, есть ли в последова
тельности число 77. Если имеются несколько таких чисел,
то определить порядковый номер первого из них.
const n=99;
var a:array[1..n+1] of integer;
i:integer;
begin
writeln('vvedite elementy:');
for i:=1 to n do
readln(a[i]);
a[100]:=100;
i:=1;
while (a[i]<>77)and(a[i]<>100) do inc(i);
if i<>100 then writeln(i)
else writeln('NO');
end.
3. Дана последовательность ненулевых целых чисел,
оканчивающаяся нулем. Определить, сколько раз в этой пос
ледовательности меняется знак. Например, в последователь
ности 10, –4, 12, 56, –4 знак меняется 3 раза.
const a:array[1..5] of integer=(10, -4, 12, 56, -4);
var k,i:byte;
begin k:=0;
for i:=2 to length(a) do begin
if a[i]*a[i-1]<0 then inc(k);
end;
writeln(k);readln;
{ TODO -oUser -cConsole Main : Insert code here }
end.

[puporev]

Просто в цикле вводишь данные и делаешь, что надо. В первой задаче, раз известно сколько учеников, цикл for i:=1 to 20.

Во второй и третьей задачах можно или цикл repeat ... until (предпочтительнее, поскольку известно условие окончания цикла), или while ... do.

[sinid]

в 1 ето я сам догадалса,я не пойму как додать еты аценкы.

[sinid]

еслы есть вазможнасть наиши рышеные всых 3 задач а з мене ОТЗИВ

[maladoy]

1

var
a:integer;
s:real;
i:integer;
begin
s:=0
for i:=1 to 20 do begin
read(a);
s:=s+a;end;
s:=s/20;
writeln(s:4:4);
end.

[maladoy]

2

var a:integer;
i:integer;
begin
i:=0;
repeat 
read(a);
i:=i+1;
until (a=77)or(a=100) do
if a=77 then writeln(i)
else writeln('NO');
end

[maladoy]

3

var k,i,l,a:integer;
begin ;
k:=0;
i:=0
repeat 
readln (a);
if a*k<0 then inc(i);
k:=a;
until a=100;/// при введение с клавиатуры "100" программа остановится
writeln(i);
readln;
end.