{program massiv;
uses crt;
var
i,n:integer;
b:array[1..100] of integer;
BEGIN
randomize;
clrscr;
writeln;
write('Vvesti N: ');
readln(n);
writeln('Vektor B: ');
for i:=1 to n do begin
b[i]:=random(101); write(b[i]:3);
end;
writeln;
end. остальное - сам, не получится - пиши
Другие языки программирования и технологии
Нужен массив, размером в 100 элементом, заполненный случайными числами, отсортированными в порядке возрастания
Бека Бекзат
98
56 64 68 68 48 10 89 51 93 27 14 75 41 43 12 71 13 76 84 64 34 36 59 95 89 48 19 57 7 6 36 59 69 49 50 13 39 62 61 53 26 5 48 70 62 60 18 78 12 13 73 2 8 51 5 91 5 91 21 62 63 30 83 57 58 26 81 39 13 90 27 100 53 25 78 3 94 68 78 49 47 68 30 59 48 94 90 95 22 53 89 93 64 47 79 33 41 48 100 23
==============
2 3 5 5 5 6 7 8 10 12 12 13 13 13 13 14 18 19 21 22 23 25 26 26 27 27 30 30 33 34 36 36 39 39 41 41 43 47 47 48 48 48 48 48 49 49 50 51 51 53 53 53 56 57 57 58 59 59 59 60 61 62 62 62 63 64 64 64 68 68 68 68 69 70 71 73 75 76 78 78 78 79 81 83 84 89 89 89 90 90 91 91 93 93 94 94 95 95 100 100
==============
2 3 5 5 5 6 7 8 10 12 12 13 13 13 13 14 18 19 21 22 23 25 26 26 27 27 30 30 33 34 36 36 39 39 41 41 43 47 47 48 48 48 48 48 49 49 50 51 51 53 53 53 56 57 57 58 59 59 59 60 61 62 62 62 63 64 64 64 68 68 68 68 69 70 71 73 75 76 78 78 78 79 81 83 84 89 89 89 90 90 91 91 93 93 94 94 95 95 100 100
Алмаз Каримкулов
42 614
Бека Бекзат
что это?
Похожие вопросы
- линейный массив из 20 элементов заполнить случайными числами в диапазоне от 0 до 1000 и отсортировать по возрастанию
- Заполните массив случайными числами. Отсортируйте массив по возрастанию методом пузырька.
- Дано вещественное число R и массив размера N. Найти элемент массива, который наименее близок к данному числу
- Заполните случайными числами в
- как в фортране определить каким в массиве по счёту идёт элемент. даны целые числа а, n,X1,X2...,Xn
- 1.Заполнить массив случайными числами. Вывести элементы массива на экран. Заменить все его минимальные элементы нулями.
- Заполнить случайным образом одномерный массив из n элементов и обменять местами последний и максимальный (в паскале)
- Нужно ввести массив из 10 элементов и отсортировать их в порядке возрастания методом пузырька, помогите, пожалуйста.
- Дан двумерный массив А [7,8], заполненный случайным образом. Заменить нечетные элементы массива на число 0 СРОЧНОО ГАЙСЫ
- MASM32 случайные числа, , массив
N: integer ;
i: integer;
begin
N:= 20 ;
for i:= 1 to N do
begin
a[i] := Random (100);
write(a [i], ' ');
end;
end.
Мне учитель вот такую штуку дал и сказал отсортировать