По паскалю! заполнить массив из 10 элементов положительных или отрицательных чисел во 2 массив переписать сначала отрицательные а потом положительные числа, вывести результат

243

407

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

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

д54

Информатика

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

Если я все правильно понял, получается что-то такое: var a,b: array[1..10] of real; i,k: integer; begin k: =1; for i: =1 to 10 do readln(a[i]); for i: =1 to 10 do if a[i]< 0 then begin b[k]: =a[i]; write(b[k],' '); k: =k+1; end; for i: =1 to 10 do if a[i]> =0 then begin b[k]: =a[i]; write(b[k],' '); k: =k+1; end; end.