Сделайте пж блок схему к этой программе с массивом)

Лариса в категроии Информатика, вопрос открыт 11.12.2017 в 23:57

PROGRAM Simbol_array;
var m,n,k,i :integer;
a :array[1..50] of real;
s: real;
Fout :text;

begin
randomize;
repeat
write('Введите количество суммируемых элементов k>0 k=');
readln(k);
until k>0;
repeat
write('Введите количество элементов массива n>=',2+2*k-1,' n=');
readln(n);
until n>=2+2*k-1;
for i:=1 to n do
begin
a[i]:=10*random;
write(a[i]:9:2);
if i mod 6=0 then writeln;
end;
writeln;
s:=0;
i:=3;
m:=0;
while m begin
s:=s+a[i];
m:=m+1;
i:=i+2;
end;
writeln('S=',s:9:2);
Assign(Fout,'Simbol_array.txt');
Rewrite(Fout);
for i:=1 to n do
begin
write(Fout,a[i]:9:2);
if i mod 6 = 0 then writeln(Fout);
end;
writeln(Fout);
writeln(Fout,'s=',s:9:2);
Close(Fout);

end.