Question

Массивы. СРОЧНО!!!!! ПОЖАЛУЙСТА!!!!! - 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

первый как то так по моему но я не проверяла в паскале.......

Answer 3

не уверена что работает....вы уж извините

Answer 4

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

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

88094689c7e72a7e0b6f8b7941e46c8c.docx

8cd074c348c972d355c6c932a18d03d4.docx

Answer 5

Поздравляю но вы младше меня на 6 месяцев.......я в11 была бы в 10 тоже....но

Answer 6

Захотела в школу раньше и отдали .....

Answer 7

Спасибо за задачу решённую.....можно я решение тоже возьму себе?

Answer 8

конечно бери))

Answer 9

Спасибки...))))))