Question

Для замены значений переменных в Pascal используется следующая конструкция:

zam:=x;

x:=y;

y:=zam;

Переменная zam используется как временное хранилище значения переменной x. Результатом выполнения трёх перечисленных команд будет обмен значений переменных x и y между собой.

Причиной для замены может быть присвоение какой-то из нескольких переменных максимального (или минимального, или ещё какое-то условие) значения из тех значений, что имеется в наличии. Например, есть переменная max и переменная x. Проверяем условие максимальности из них переменной max и если условие не соблюдается (т.е. max меньше x), то значения этих переменных заменяем меж собой. В Pascal это выглядит так:

………;

……….;

if max
zam:=max;

max:=x;

x:=zam;end;

………..;

………..;

Это фрагмент программы, многоточия обозначают возможные другие команды, не относящиеся непосредственно к нашей теме.

Переменными в Pascal могут быть элементы массива, который объявляется так:

var mas:array[1..20]of integer; Это мы объявили массив целых чисел из 20-ти элементов.

Присваивать значения элементам массива можно в цикле с параметром:

for i:=1 to 20 do begin

writeln(‘Введите значение элемента массива’);

readln(mas[i]);end;

В этом случае значения каждому элементу присваиваем вручную. Можно использовать генератор случайных чисел:

for i:=1 to 20 do

mas[i]:=random(100);

где последняя команда означает, что очередному элементу массива будет присвоено случайное число из диапазона 0...99 (все включительно).

Теперь собственно задание:

Составленная Вами программа должна будет:

1. Присвоить значения элементам массива целых чисел, состоящем из не менее чем 20-ти элементов. Случайным образом или с клавиатуры;

2. Вывести весь массив в окне вывода;

3. Отсортировать элементы массива по возрастанию;

4. Вывести отсортированный массив в окне вывода.