Мне нужно составить блок схему для иррациональных уравнений,

208

436

Посмотреть ответы 2

Ответы на вопрос:

adadurovf

Информатика

4,4(76 оценок)

ответ:

по инфарматики что ли нужно

sevryakrut

Информатика

4,6(31 оценок)

Program gt; var x,y: array[1..1000]of integer; k,n,i,j,r: integer; begin read(n); k: =0; for i: =1 to n do begin read(x[i]); if(x[i]< 0)then begin k: =k+1; y[k]: =x[i]*2; end; end; for i: =1 to k do begin for j: =1 to k-i do begin r: =y[j]; if(y[j]> y[j+1])then begin y[j]: =y[j+1]; y[j+1]: =r; end; end; end; for i: =1 to k do begin write(y[i],' '); end; end.это метод пузырка