Составьте блок схему к этой задаче по информатике Program summa; var s, i: integer; begin s:=0; Randomize; For i:= 1 to 10 dobegin A[i]:= Randomize(50); s:= s+A[i]; End; For i:= 1 to 10 do write (a[i],' '); writeln('s=',s); End.
Ну, программа работать не будет, т.к. нет массива "А", вот блок схема к рабочей программе: