М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
SvetLink
SvetLink
28.02.2020 18:48 •  Информатика

Написать программу для сортировки массива b(5) по возрастанию.ввод осуществляется случайным образом

👇
Ответ:
mansursatuev
mansursatuev
28.02.2020
// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(5,-50,50); a.Println;
  a.Sort; a.Println
end.

Пример
-5 19 -32 34 20
-32 -5 19 20 34

Написать программу для сортировки массива b(5) по возрастанию.ввод осуществляется случайным образом
4,6(1 оценок)
Ответ:
арсений213
арсений213
28.02.2020
Вот решение. На всякий случай прикрепил скриншот. Написал на Pascal.
4,8(52 оценок)
Открыть все ответы
Ответ:
Marina12971
Marina12971
28.02.2020
Program ZvonPOBEDITEL;var i,n,k,i_1,i_2,d_1,d_2: integer;c: char;s,s_1,s_2: string;begin i_1:=0; i_2:=0; d_1:=1; d_2:=1; readln(n); for i:=1 to n do begin  c:='a';  s:='';  while c<>' ' do  begin   read(c);   s:=s+c;  end;  read(c);  while c<>' ' do  begin   s:=s+c;   read(c);  end;  read(c);  while c<>' ' do  begin   read(c);  end;  readln(k);  if (k=i_1) and (i<>1) then d_1:=d_1+1;  if k>i_1 then   begin   i_2:=i_1;   i_1:=k;   s_2:=s_1;   s_1:=s;   d_2:=d_1;   d_1:=1;  end;  if (k=i_2) and (i<>1) then d_2:=d_2+1;  if (k>i_2) and (k<i_1) then   begin    i_2:=k;   s_2:=s;   d_2:=1;  end; end; if (i_1<=200) and (d_1=1) then writeln(s_1); if (i_1<=200) and (d_1<>1)then writeln(d_1); if (i_1>200) and (d_2=1) then writeln(s_2); if (i_1>200) and (d_2<>1) then writeln (d_2);end. Это сугубо мое решение за копирайтинг отвешу люлей. И к тому же сдесь есть одна ошибка о которой знаю только я, так сказать один из частных случаев здесь не прощитывается, по этому поломайте голову, Ха-Ха-Ха...
4,4(16 оценок)
Ответ:
egmoisee
egmoisee
28.02.2020

19-шы ғасырда Гайслер және Крукс трубкалары секілді ауасы сорылып алынған трубкалармен тәжірибелер көп жасалды. Сондай тәжірибелермен айналысқан ғалымдардың ішінде Ойген Гольдштейн, Никола Тесла, Йоһанн Вильһельм Һитторф, Томас Эдисон және басқаларды атауға болады. Электр шамын санамағанда ғалымдар өз тәжірибелерінде қолданған трубкалардың практикалық маңызы шамалы еді. Бірақ сол ғалымдар мен өнертапқыштар жүргізген зерттеулердің арқасында электрон лампылар технологиясының пайда болуына керекті көп мәліметтер жиналды.

4,7(49 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ