Сpascal abc в пяти тестовых опросах мальчик получил оценки. составите алгоритм и программу, которая определит среднее значение оценок, полученных мальчиком в пяти опросах

var a,sum,i: integer; beginfor i: =1 to 5 dobegin readln (a); sum: =sum+a; end; writeln (sum/5); end.

var

a: array[1..31] of real;

i,k: integer;

min: real;

begin

min: =50;

for i: =1 to 31 do

begin

readln(a[i]);

if a[i]< min then min: =a[i];

end;

k: =0;

for i: =1 to 31 do

if a[i]=min then k: =k+1;

writeln(k);

end.

var

i: integer;

a: array[1..20] of integer;

function fn(x: integer): integer;

begin

if x mod 10 = 4 then fn: =x div 2

else fn: =x;

end;

begin

for i: =1 to 20 do

readln(a[i]);

for i: =1 to 20 do

begin

a[i]: =fn(a[i]);

writeln(a[i]);

end;

end.