В массиве 30 чисел, заполняются случайными числами из интервала (5;20) упорядочить по...

0 голосов
55 просмотров

В массиве 30 чисел, заполняются случайными числами из интервала (5;20) упорядочить по возрастанию, на экран вывести первоначальный массив и упорядоченный


Информатика (12 баллов) | 55 просмотров
Дан 1 ответ
0 голосов

Program massive;varQW:array[1..30] of integer;min, i, a, b, c: integer;begin //погнали//задаём массив случайными числами из [5; 20]//*************************************************************************************randomize;//запускаем генератор случайных чиселfor i:=1 to 10 doQW[i]:=random(15)+5;//*************************************************************************************for i:=1 to 30 dowrite(QW[i],' ');writeln(' ');//***********************************************************************************//чередуем по возрастаниюfor a:=1 to 30 dobeginmin:=32767;for i:=a to 30 doif(QW[i]<min) thenbeginmin:=QW[i];b:=i;end;c:=QW[b];QW[b]:=QW[a];QW[a]:=c;end;//**************************************************************************************//вывод массиваfor i:=1 to 30 do write(QW[i],' ');read(a);end.//RADIOFAN

(267 баллов)
0

я её уже писал, тут маленько изменил, только проблема он переход к новой строке не отобразил