Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 189434
18.05.2016, 17:32
0.00 руб.
0 1 1
Компьютеры Программирование
Здравствуйте! Прошу помощи в следующем вопросе:
написать программу на языке паскаль: Составить программу, которая формирует одномерный мас-
сив из 15 вещественных случайных чисел. Проведите сортировку массива
по убыванию

Обсуждение

давно
Зенченко Константин Николаевич
Старший Модератор
31795
6196
19.05.2016, 10:32
общий
это ответ
Здравствуйте, amelya.kuro!

Смотрите код:
[code lang=pascal h=200]const
n=15;
var
i,j:integer;
a:array[1..n]of real;
b:real;
begin
{создаем массив}
for i:=1 to n do
begin
a[i]:=100*random;
write(a[i]:16:10);
end;
writeln;
{сортировка массива}
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]<a[j]then
begin
b:=a[i];
a[i]:=a[j];
a[j]:=b;
end;
{вывод массива}
writeln;
for i:=1 to n do
write(a[i]:16:10);
end.[/code]
Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа