Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

Глупая надежда спрашивать решение..но все же..

1.Создать массив на 20 значений.

2.Загрузить массив случайными числами от 10 до 100.Как выразился мой учитель это подсказка: P=INT(RND*90+10)

3.Выполнить сортировку массива по возрастанию.

4.Вывести значение массива в столбик на экран.

Пожалуйста помогите..сегодня весь класс двойки получил...

Ответ оставил Гость

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]           t:=a[i];
           a[i]:=a[j];
           a[j]:=t;
        end;

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

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