Массивы. СРОЧНО!!!!! ПОЖАЛУЙСТА!!!!! - 20 баллов1. Задать через датчик случайных чисел...

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

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





Информатика (158 баллов) | 73 просмотров
0

несколько)

0

сейчас исправим

0

все, исправила, спасибо, а то я бы уже не заметила)))

0

))))

0

спасибо!!!!! рада, что отозвались)))) если все не сможете, хотя бы несколько))) буду благодарная)))

0

Ага...

Дано ответов: 2
0 голосов

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.

0 голосов

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

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



image
image
(6.4k баллов)
0

но тем не менее не проходили пока пределы ((

0

6 октября исполнилось 16

0

а ты в каком?

0

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