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

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

25.02.2011, 19:19. Показов 1448. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
1)дано целое число n>1 и набор из н целых чисел.Вывести те элементы, которые меньше своего левого соседа и количество таких элементов.
2)дано целое число n>0.Используя операцию деления нацело и взятие отатка от деления,найти число, полученное при прочтении числа н справа налево.
Спасибо.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.02.2011, 19:19
Ответы с готовыми решениями:

Вывести те элементы в наборе, которые меньше своего правого соседа, и количество К таких элементов
№1. дан набор ненулевых целых чисел; признак его завершения - число 0. вывести количество чисел в...

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

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

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

1
Почетный модератор
64299 / 47594 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
25.02.2011, 19:38 2
Лучший ответ Сообщение было отмечено Elis-sabina как решение

Решение

1.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses crt;
var a,b,n,i,k:integer;
begin
repeat
write('Сколько чисел ввести n>1 n=');
readln(n);
until n>1;
writeln('Введите ',n,' целых чисел:');
read(a);
k:=0;
for i:=2 to n do
 begin
  read(b);
  if b<a then k:=k+1;
  a:=b;
 end;
write('Количество чисел, меньших соседа слева=',k);
end.
Добавлено через 4 минуты
2.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses crt;
var n,p,i:integer;
begin
repeat
write('Введите натуральное число n=');
readln(n);
until n>0;
p:=0;
while n>0 do
  begin
    i:=n mod 10;
    p:=p*10+i;
    n:=n div 10;
  end;
write(p);
end.
1
25.02.2011, 19:38
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.02.2011, 19:38
Помогаю со студенческими работами здесь

Подсчитать количество тех элементов последовательности, которые больше своего левого соседа
С клавиатуры вводится последовательность целых чисел длиной N. Подсчитать количество тех элементов...

Series 20: Вывести те элементы в наборе, которые меньше своего правого соседа
Здравствуйте люди добрые, Вот и у меня настала практика по Pascal, 44 задачи я решил из 54, на...

Найти номера тех элементов массива, которые больше своего правого соседа, и количество таких элементов
1. Дан массив размера N. Найти номера тех элемонтов массива, которые больше своего правого соседа,...

Найти номера элементов массива, которые больше своего левого соседа
Всем доброго времени суток. Такая вот задача: Дан массив размера N. Найти номера тех элементов...


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

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

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