Задание ** написание программы в Pascal. Расположите в порядке возрастания 10 чисел и...

Question

Задание на написание программы в Pascal. Расположите в порядке возрастания 10 чисел и выведите их на экран.

Comments

Число откуда берутся?

---

Больше ничего не указано, видимо должны быть взяты рандомные числа

---

Массивы знаете?

---

Не знаком и не практиковался. В школе никогда в Pascal не работали, а на первом курсе биофака это дано в моих лабораторных заданиях. Описание выполнения работы отсутствует.

Answer 1

Program v;

uses crt;

const n=10;

var a: array [1..n] of integer;

i,k,j: integer;

BEGIN

Randomize;

WriteLN('Массив А: ');

For i:= 1 to n do begin

a[i]:= random(100)-10;

Wite(a[i]:5);

end;

WRITELN;WRITELN;

For i := 1 to n-1 do begin

For j := 1 to n-i do begin

If a[j] > a[j+1] then begin

k := a[j];

a[j] := a[j+1];

a[j+1] := k

end;

end;

end;

WriteLN('Отсортированный массив: ');

WRITELN;

For i := 1 to n do

Write(a[i]:5);

READKEY;

END.