Дан массив А(40). Упорядочить элементы массива по убыванию. погите написать программу желательно на паскаль Abc
1-4 класс
|
program asd;
const A=40;
var mas:array [1..A]of integer;
n,i,j,k,x:integer;
begin
writeln('Исходный массив:');
for i:=1 to A do
writeln(i);
n:=1;
writeln('Отсортированный массив:');
while i>n do
for i:=A downto n do
writeln(i);
end.
Другие вопросы из категории
Части 2
Часть 1
Дата
1. 5-4 тысечелетие до н.э.
2. 2-1 тысечелетие до н.э.
3. 2 век до н.э.
4. Середина 15 в.
5. Середина 16 в.
6. 1839 г.
7. 70-е гг. 19в.
8. 1895 г.
9. 20-е гг. 20 в.
10. 60-е гг. 20 в.
11. 80-е гг. 20 в.
Часть 2
Событие
1.Изобретение технологии изготовления бумаги в Китае.
2.Начало книгопечатия в Европе
3. Появление алфавитного письма в Финикии
4.Появление первых лзерных дисков
5.Первые следы иероглефического письма в Древнем Египте.
6.Начало книгопечатия в России
7.Появление первых жестких дисков для компьютеров
8. Изобретение магнитофона
9.Изобретение фотографии
10. Первая запись звука с помощью фонографа
а экран тёмный. Мы проверили все проводки. Подскажите причину этого и как с ней справится!
Читайте также
рюкзак и вынули бумажки .Какова вероятность того что дежурить будут 2 мальчика, девочки , мальчик и девочка ?
своим индексам, увеличенным на один. Значение a описать в разделе констант. Выведите массив в строчку.