Помогите составить блок схему из алгоритма паскаля?

Вот алгоритм

var

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

N, K, L, i, Sum:Integer;

begin

Write ('N: ') ;

Readln (N) ;

Write ('K: ') ;

Readln (K) ;

Write ('L: ') ;

Readln (L) ;

for i:=1 to N do

begin

write (i,' : ') ;

readln (a[i]) ;

end;

Sum:=0;

for i:=1 to k-1 do Sum:=Sum+a[i];

for i:=l+1 to n do Sum:=Sum+a[i];

Writeln (Sum / ((k-1) + (n-l))) ;

Readln;

end.

Question

Информатика

Бабилина

10 апреля, 17:09

Помогите составить блок схему из алгоритма паскаля?

Вот алгоритм

var

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

N, K, L, i, Sum:Integer;

begin

Write ('N: ') ;

Readln (N) ;

Write ('K: ') ;

Readln (K) ;

Write ('L: ') ;

Readln (L) ;

for i:=1 to N do

begin

write (i,' : ') ;

readln (a[i]) ;

end;

Sum:=0;

for i:=1 to k-1 do Sum:=Sum+a[i];

for i:=l+1 to n do Sum:=Sum+a[i];

Writeln (Sum / ((k-1) + (n-l))) ;

Readln;

end.

+4

Ответы (1)

Знаете ответ?

Магомеднаби · Answer 1

P. S Те кружочки с цифрой рисуются в тех местах, где блок схема обрывается, а потом такой же кружочек с такой же циферкой рисуется там, где она продолжается)

Когда чертил блок - схему, предполагал, что переменная l на самом деле является переменной L, просто ты опечатал (ся/ась) =)