Регистрация
SHIRINA11
20.06.2023 12:18
Информатика
Есть ответ 👍

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

199
215
Посмотреть ответы 3

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

Эмир228
Эмир228
4,5(15 оценок)

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]);

 

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

Alinakozlova2004
Alinakozlova2004
4,6(24 оценок)

   

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

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 назад  

 

drblk3282
drblk3282
4,6(77 оценок)

ответ: 10

Объяснение:

Из А в B,C,D ведёт по 1 дороге

Е = B(1) + C(1) = 2

F = E(2) + C(1) + D(1) = 4

G = E(2)+F(4)=6

H = G(6)+F(4)

Всего 10

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