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

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

24.02.2011, 18:21. Показов 3065. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
№1. дан набор ненулевых целых чисел; признак его завершения - число 0. вывести количество чисел в наборе.

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

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

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

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

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

1
Почетный модератор
64302 / 47597 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
24.02.2011, 18:42 2
Лучший ответ Сообщение было отмечено Nastya_710 как решение

Решение

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

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

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

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

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


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

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

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