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

Question

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

Answer 1

 var
  A,B,C: array[1..100] of integer;
  i,n,j,k:integer;
begin
randomize;
j:=0;
k:=0;
Readln(n);
Writeln('Исходный массив:');
 for i:=1 to n do
  begin
   A[i]:=random(10);
   writeln('A[',i,']=',A[i]);
   end;
for i:=1 to n do
   if A[i]>5.5
    then  
     begin
       j:=j+1;
       B[j]:=A[i];
      end;
 for i:=1 to n do
  if A[i]<=5.5<br>  then 
    begin
     K:=k+1;
     C[k]:=A[i];
    end;
for i:=1 to j do
 writeln('B[',i,']=', B[i]);
for i:=1 to k do
 writeln('C[',i,']=', C[i]);
end.