Помогите в построении блок-схем, по коду паскаля
Помогите пожалуйста, 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. |
Часовой пояс GMT +4, время: 22:44. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.