0 / 0 / 0
Регистрация: 06.06.2012
Сообщений: 52
1

Вывести те элементы в наборе, которые меньше своего левого соседа

22.06.2012, 14:17. Показов 1890. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Помогите решит вот эти 2 задачи :

2)Дано целое число N (>1) и набор N целых чисел. Вывести те элементы в наборе, которые меньше своего левого соседа, и количество К таких элементов.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.06.2012, 14:17
Ответы с готовыми решениями:

Вывести те элементы в наборе, которые меньше своего правого соседа
2. Дано целое число N(>1) и набор из N целых чисел. Вывести те элементы в наборе, которые меньше...

Вывести номера тех чисел в наборе, которые меньше своего левого соседа, и количество K таких чисел
Дано целое число N и набор из N целых чисел.Вывести номера тех чисел в наборе, которые меньше...

Вывести номера тех чисел в наборе, которые меньше своего левого соседа, и количество K таких чисел
1.Дано целое число N и набор из N целых чисел. Вывести номера тех чисел в наборе, которые меньше...

Удалить те элементы массива, которые больше своего левого соседа
Здравствуйте! Возникла проблема с Паскалем: необходимо удалить те элементы массива, которые больше...

1
Фрилансер
3418 / 2815 / 3000
Регистрация: 08.02.2012
Сообщений: 8,597
Записей в блоге: 1
22.06.2012, 14:36 2
Лучший ответ Сообщение было отмечено tohir_91 как решение

Решение

Цитата Сообщение от tohir_91 Посмотреть сообщение
2)Дано целое число N (>1) и набор N целых чисел. Вывести те элементы в наборе, которые меньше своего левого соседа, и количество К таких элеме
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Var A:array[1..100] of integer;
    i,n,k:integer;
Begin
    write('Введите n: ');readln(n);
    Randomize;
    k:=0;
    For i:=1 to n do
     Begin
      A[i]:=Random(11)-5;
      write(A[i]:3)
     End;
    writeln;
    writeln('Такие элементы: ');
    For i:=2 to n do
     if A[i-1]>A[i] then
      Begin
       write(A[i]:3);
       inc(k);
      End;
    writeln;
    writeln('Всего их: ',k);
    readln;
End.
0
22.06.2012, 14:36
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.06.2012, 14:36
Помогаю со студенческими работами здесь

Вывести номера тех чисел в наборе, которые больше своего правого соседа
Задание. Составить блок-схему алгоритма и написать программу обработки одномерного массива, как...

Вывести номера тех чисел в наборе, которые больше своего правого соседа
Может кто знает как сделать эти задачи если да то напишите плс! 1. Дано целое число N (> 0). Если...

Вывести номера тех чисел в наборе, которые больше своего правого соседа, и количество K таких чисел
Дано целое число N и набор из N целых чисел. Вывести номера тех чисел в наборе, которые больше...

Вывести номера тех чисел в наборе, которые больше своего правого соседа, и количество K таких чисел
Дано целое число N и набор из N целых чисел. Вывести номера тех чисел в наборе, которые больше...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru