В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История

Глупая надежда спрашивать решение..но все же.. 1.создать массив на 20 значений. 2.загрузить массив случайными числами от 10 до 100.как выразился мой учитель это подсказка: p=int(rnd*90+10) 3.выполнить сортировку массива по возрастанию. 4.вывести значение массива в столбик на экран. ..сегодня весь класс двойки

Показать ответ
Ответ:
AksenovaKatya2007
AksenovaKatya2007
30.09.2020 19:40

1) var a:array [1..20] of integer;

i:integer;

 

2)

randomize;

for i:= 1 to 20 do

  a[i]:=random(90)+10;

 

3) n:=20;

for i:=1 to n-1 do
      for j:=i+1 to n do
        if a[i]<a[j] then begin
           t:=a[i];
           a[i]:=a[j];
           a[j]:=t;
        end;

 

4) for i:= 1 to n do
        writeln(a[i]);

 

еще бы не двойки, легкотня то такая

0,0(0 оценок)
Ответ:
Ewa11
Ewa11
30.09.2020 19:40

  

 Я так понимаю язык Бейсик поэтому 

1) DIM a(20)

 

 

 

2) FOR i=1 to 20  

      LET  a(i)=INT (RND*90+10)

 

 

NEXT  i

 

 

3) LET n=20

 

 

FOR  i:=1 to n-1 
 FOR j:=j+1 to n 
 IF (a[i]<a[j]) THEN   LET t=a(i): LET    a(j)=t: LET a(i)=a(j)

 

NEXT j: NEXT i
 
  4) FOR i=1 to n 

          PRINT AT i,2; A(i)

NEXT i

 

     

 

Примерно вот  так прощения если что то напутал в синтаксисе на Бейсике писал последний раз лет 15 назад  

 

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота