Question

Массивы. СРОЧНО!!!!! ПОЖАЛУЙСТА!!!!! - 20 баллов1. Задать через датчик случайных чисел одномерный вещественный массив V[1..20] иМассивы. СРОЧНО!!!!! ПОЖАЛУЙСТА!!!!! - 20 баллов
1. Задать через датчик случайных чисел одномерный
вещественный массив V[1..20]
и отсортировать его по возрастанию, полученный массив вывести на экран.
2. Задать и вывести на экран двумерный массив N[1..3,1..5].
Отсортировать его по возрастанию по столбцам и полученный массив вывести
на экран.
3. Задать вводом с клавиатуры одномерный вещественный
массив M[1..10] и
поменять четные элементы с нечетными, полученный массив вывести на экран.
4. Задан и выведен на экран двумерный массив А[1..3,1..6],
нужно его перевернуть и вывести на экран новый получившийся массив В[1..6,1..3].




0 8 6

6 1
4 5 6
9 4 2 1

8 2
3 7 1
8 - А[3,6] 5 3 4 - В[6,3]

0 4
5 9 4
3 9 7 5


4 1 6


3 8 9

Answer 1

Program aliona;
var a :array[1..100]of integer;
i:integer;
begin
a[i]:=random (22)+1;
writeln(a[i],' ');
for i:=1 to n do
if a[i]>a[i+1] then
begin
m:=a[i];
a[i]:=a[i+1];
a[i+1]:=m;
end;
writeln('a[i]=',a[i]);
readln;
end.

Answer 2

Тоже поковырялся, решил первое
Паскаль есть, проверил - работает

вот третье решил, тоже проверил, тоже всё работает, НО только при условии что количество четных элементов массива совпадает с количеством нечетных