Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
master5918
1 / 1 / 0
Регистрация: 06.02.2013
Сообщений: 5
1

Дан массив действительных чисел. Выяснить, отсортирован ли он по убыванию

13.02.2013, 15:08. Просмотров 983. Ответов 2
Метки нет (Все метки)

Помогите с решение
1. Дан массив действительных чисел. Выяснить, отсортирован ли он по убыванию.

Огромное спасибо
1
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.02.2013, 15:08
Ответы с готовыми решениями:

Вставить одномерный массив в двумерный массив так, чтобы второй столбец был отсортирован по убыванию
Помогите пожалуйста решить задачку: Вставить в качестве новой строки...

Дан одномерный массив А(30) действительных чисел.
Дан одномерный массив А(30) действительных чисел. Разработать программу...

Дан массив. Определить, отсортирован ли он?
дан массив из 10 элементов определить отсортирован ли он

Дан массив действительных чисел. Удалить из массива минимальный элемент
дан массив действительных чисел а1,…, аn. Удалить из массива минимальный...

Дана последовательность действительных чисел A1, A2,...An. Выяснить, будет ли она возрастающей.
Дана последовательность действительных чисел A1, A2,...An. Выяснить, будет ли...

2
palva
3100 / 2232 / 450
Регистрация: 08.06.2007
Сообщений: 8,132
Записей в блоге: 4
13.02.2013, 15:47 2
Лучший ответ Сообщение было отмечено master5918 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program g;
{$APPTYPE CONSOLE}
const
    n = 10;
var
    a: array[1..n] of Double=
//    (10.0, 9.0, 8.5, 8.1, 7.9, 7.0, 5.0, -4.1, -5.0, -8.4);
    (10.0, 9.0, 8.5, 8.6, 7.9, 7.0, 5.0, -4.1, -5.0, -8.4);
    b: Boolean;
    i: Integer;
begin
    b := True;
    for i := 1 to n-1 do
        if a[i]<a[i+1] then
        begin
            b := false;
            break;
        end;
    if b then WriteLn('Yes')
    else WriteLn('No')
end.
1
Shandor
0 / 0 / 1
Регистрация: 22.10.2014
Сообщений: 13
08.12.2014, 20:48 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
program z1;
const m=10;
var
a:array[1..m] of integer;
i,k,n,j,s,l:integer;
f,t,r:boolean;
begin
writeln('Массив:');
for i:= 1 to m do
begin
readln(a[i]);
end;
writeln;
writeln;
for i:= 1 to m-1 do
for j:= 1 to m-i do
if a[j]>a[j+1] then
begin
f:=true;
end;
if f =true then write('нет') else
write('да ');
if f =false then
write(' по неубыванию');
 
writeln;
for i:= 1 to m-1 do
for j:= 1 to m-i do
if a[j]<a[j+1] then
begin
t:=true;
end;
if t =false then
write(' по убыванию');
 
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.12.2014, 20:48

Дан массив 9х9 отсортировать по убыванию любым методом
Дан массив 9х9 отсортировать по убыванию любым методом

Массив действительных чисел.
Даны натуральное число N, массив действительных чисел X(N). Получить...

Массив действительных чисел
Помогите пожалуйста! Дан массив действительных чисел, размерность которого N....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru