Pascal

Question

Pascal

PascalЗаписать программу на языке Pascal
Заданы 2 массивы А и В одинаковой размерности, из 10 целых чисел каждый. Составте программу с помошью которой массивы А и В сливаются в массив С по правилу: сначала отрицательные элементы А, затем отрицательные элементы В, затем положительные А и положительные В.

Гость

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

Гость

var i: integer pt : integer C = array of int[20] begin pt=0; for i=1 to N do begin if(A<0) begin C[pt]=A{i}; ++pt end; end; // for i=1 to N do begin if(B<0) begin C[pt]=A{i}; ++pt end; end; // for i=1 to N do begin if(A > 0) begin C[pt]=A{i}; ++pt end; end; // for i=1 to N do begin if(B >0) begin C[pt]=A{i}|; ++pt end; end; // пишу на c++ на счет синтаксиса не уверен. Писать надо на c++ / Паскаль влияет на качество кода

Accepted Answer

Правда, не проверял, но должно заработать. Да, здесь нельзя I в квадратных скобках писать - шрифт становится наклонным. Var A, B: Array[1..10] Of Integer; C: Array[1..20] Of Integer; K, J: Integer; Begin J = 1; For I:=1 To 10 Do If A[k] < 0 Then Begin C[J]:=A[k]; J:= J + 1; End; For I:=1 To 10 Do If B[k] < 0 Then Begin C[J]:=B[k]; J:= J + 1; End; For I:=1 To 10 Do If A[k] >= 0 Then Begin C[J]:=A[k]; J:= J + 1; End; For I:=1 To 10 Do If B[k] >= 0 Then Begin C[J]:=B[k]; J:= J + 1; End; End.