Напишите программу на языке Pascal.Элементы массива А, удовлетворяющие условию А(i)>5.5, переписать в массив В, а элементы, удовлетворяющие условию А(i)<=5.5, переписать в массив С. В массиве А m элементов.

Предыдущий
вопрос Следующий
вопрос

program SeparateArrays
va
A, B, C: array of Real
m, i, countB, countC: Integer
begi
Write('Enter the number of elements in array A: ')
ReadLn(m);

SetLength(A, m);

WriteLn('Enter the elements of array A:')
for i := 0 to m - 1 d
begi
ReadLn(A[i])
if A[i] > 5.5 the
countB := countB +
els
countC := countC + 1
end;

SetLength(B, countB)
SetLength(C, countC);

countB := 0
countC := 0;

for i := 0 to m - 1 d
begi
if A[i] > 5.5 the
begi
B[countB] := A[i]
countB := countB + 1
en
els
begi
C[countC] := A[i]
countC := countC + 1
end
end;

WriteLn('Elements of array B:')
for i := 0 to Length(B) - 1 d
WriteLn(B[i]);

WriteLn('Elements of array C:')
for i := 0 to Length(C) - 1 d
WriteLn(C[i])
end.