Помогите пожалуйста, 2 задачки срочно, завтра уже нужно сдать, крайний срок.(( 2 блок схемки нарисовать, кому не влом, парни выручайте!
1)
Program ChisloB;
var b,i,k:integer;
summY:real;
y:array[1..100] of real;
Begin
write ('Vvedite B, B>0: ');
readln (b);
i:=0;
summY:=0;
writeln('Vvedite Yi');
i:=i+1;
Write('Y',i,':');
readln(y[i]);
summY:=summY+abs(y[i]);
Writeln(',summY:0:2,'>',b,')');
Writeln('Srednee arifmeticheskoe iz modulei Yi=',summY/i:0:3);
summY:=0;
for k:=1 to i do summY:=summY+y[k];
Writeln('Srednee arifmeticheskoe iz Yi=',summY/i:0:3);
readln;
end.
2)
Program massivT;
var m,k,i,summ:integer;
T:array[1..100] of integer;
Begin
write ('Vvedite m,100>m>0: ');
readln (m);
summ:=0;
for i:=1 to m do
begin
Write('T(',i,'):');
readln(T[i]);
if i mod 2=0 then summ:=summ+T[i];
end;
k:=0;
for i:=1 to m do
if T[i]<summ then k:=k+1;
Writeln('V massive T(m) ',k,' elementov menshih ',summ);
readln;
end.