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

  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   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.

program kalkulator;

uses crt;

var     a,b,c: real;   x: integer;

begin

clrscr;

writeln('введите 2 числа');    

readln(a,b);    

writeln('выберете действие');    

writeln('1-"+" 2-"-" 3-"*" 4-"/"');          

readln(x);          

case x of    

1: begin c: =a+b; writeln(c: 2: 2); end;    

2: begin c: =a-b; writeln(c: 2: 2); end;    

3: begin c: =a*b; writeln(c: 2: 2); end;    

    elsebegin   c: =a/b; writeln(c: 2: 2);

end;    

end;    

readln;    

end.  

program sq2; var a, b, c, d, x, x1, x2 : real; beginwriteln ('введите коэффициенты уравнения (a, b, c) '); readln(a,b,c); if a=0 thenif b=0 thenif c=0 then writeln('x - любое число')else writeln('корней нет! ')else begin x: =-c/b; writeln('x=',x: 8: 3); endelsebegind: =b*b-4*a*c; if d< 0 then writeln ('корней нет! ')elsebeginx1: =(-b+sqrt(d))/2/a; x2: =(-b-sqrt(d))/2/a; writeln ('x1=', x1: 8: 3, ' x2=',x2: 8: 3); end; end; end.

 

решение не мое,так как на составления данного кода,не хватило бы времени.