Есть ответ 👍

Решить с паскаля: 1. в массиве все отрицательные элементы переместить в начало массива, а остальные в конец с сохранением порядка следования. 2. дана последовательность целых чисел, среди чисел есть одинаковые, создать массив различных чисел последовательности и полученный массив отсортировать по возрастанию.

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

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


1var     i,k: integer;     a,b: array[1..10]of integer; begin writeln('исходный массив: '); for i: =1 to 10 do   begin   a[i]: =random(-10,10);   write(a[i]: 3)   end; for i: =1 to 10 do   begin   if a[i]< 0 then     begin     k: =k+1;     b[k]: =a[i]     end   end; for i: =1 to 10 do   begin   if a[i]> =0 then     begin     k: =k+1;     b[k]: =a[i]     end   end; writeln; writeln('преобразованный массив: '); for i: =1 to 10 do write(b[i]: 3) end. 2.var i,j,k,n,x,p: integer; a,b: array of integer; f: boolean; beginwrite('сколько будет чисел: '); readln(n); setlength(a, n); for i: =1 to n do  begin  f: =false;   write('введите число: ');   readln(x);   for j: =0 to n-1 do      if x=a[j] then f: =true;       if f=false then          begin          a[k]: =x;           k: =k+1;           end  end; setlength(b, k); for i: =0 to k-1 do  b[i]: =a[i]; for i: = 0 to k-1 do      for j : = 0 to k-1 do          begin          if b[i] < b[j] then            begin            p : = b[i];               b[i] : = b[j];               b[j] : = p          end    end; writeln('отсортированный массив: '); for i: =0 to k-1 do write(b[i]: 3)end.2.1var  i,j,k,n,x,p: integer;   a: array[1..1000] of integer;     f: boolean; beginwrite('сколько будет чисел: '); readln(n); k: =1; for i: =1 to n do    begin    f: =false;     write('введите число: ');     readln(x);     for j: =1 to n do        if x=a[j] then f: =true;         if f=false then          begin          a[k]: =x;           k: =k+1;           end    end; for i: =1 to k-1 do      for j: =1 to k-1 do      begin          if a[i] < a[j] then            begin            p: = a[i];               a[i]: = a[j];               a[j]: = p              end      end; writeln('отсортированный массив: '); for i: =1 to k-1 do write(a[i]: 3)end.

Объяснение:program Hello; // Pascal [fpc 3.0.4]

var A:array[0..24] of integer;

i,x:integer;

begin

   randomize;

   for i:=1 to 24 do

   begin

     A[i]:=random(100);

     write(' ',A[I],' ');

     

   end;

   

   x:=0;

   

   for i:=1 to 24 do

   if A[i] mod 2 = 0 then

   x:=x+1;

   readln;

   writeln('kol-vo',x);

   

end.

Реши свою проблему, спроси otvet5GPT

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

Популярно: Информатика

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

    otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.
  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
  • В чем отличия от ChatGPT?

    otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.

Подпишись на наш телеграмм канал

GTP TOP NEWS