Форум программистов, компьютерный форум, киберфорум
Наши страницы

Free Pascal

Войти
Регистрация
Восстановить пароль
 
Olga980
0 / 0 / 0
Регистрация: 28.02.2017
Сообщений: 10
#1

Определить, сколько из случайно заданных 100 чисел больше своих соседей - Free Pascal

18.03.2017, 15:33. Просмотров 149. Ответов 3
Метки нет (Все метки)

100 целых чисел заданы случайною Определить, сколько из них больше своих "соседей", то есть предыдущего и последующего чисел
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.03.2017, 15:33
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Определить, сколько из случайно заданных 100 чисел больше своих соседей (Free Pascal):

Дан вектор целых чисел Определить сколько из них больше своих соседей - Free Pascal
1)Дан вектор целых чисел. Определить сколько из них больше своих соседей

Ввести n целых чисел и определить, сколько из них больше своих соседей - Pascal
У меня задача: используя цикл, написать программу, обеспечивающую ввод n целых чисел и определяющую, сколько из ни больше своих соседей

Дан массив из N вещественных чисел.определить,сколько из них больше своих "соседей" - Pascal
Дан массив из N вещественных чисел.определить,сколько из них больше своих "соседей",т.е. предыдущего и последующего чисел

Определить количество чисел ,значения которых больше своих соседей - Pascal
1.Дан массив из N вещественных.Определить количество чисел ,значения которых больше своих соседей,т.е. следующего и предыдущего. 2.Дан...

Определить, сколько элементов последовательности больше своих "соседей" - Pascal
Есть задача:Дано N вещественных чисел. Определить ,сколько из них больше своих "соседей" , то есть предыдущего и последующего чисел. ...

Определить количество и номера элементов, которые больше своих соседей - Pascal
Задана последовательность точек плоскости P1(x, y); P2(x, y); …..; Pn(x, y). Определить количество и номера элементов, которые больше...

3
Hitoku
Sample text
736 / 603 / 304
Регистрация: 28.10.2016
Сообщений: 2,033
Завершенные тесты: 3
18.03.2017, 15:58 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
const n=100;
var
  a:array [1..n] of integer;
  i,kol:byte;
begin
  randomize;
  kol:=0;
  for i:=1 to n do begin
    a[i]:=random(101); write(a[i],' ');
  end;
  for i:=2 to n-1 do
    if (a[i]>a[i-1]) and (a[i]>a[i+1]) then
      kol:=kol+1;
  writeln; write('Kol - ',kol);
end.
1
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
24004 / 15985 / 4834
Регистрация: 22.10.2011
Сообщений: 28,263
Записей в блоге: 5
18.03.2017, 19:38 #3
Зачем делать два прохода там, где можно сделать один?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
const
  n = 100;
var
  a: array [1..n] of integer;
  i, count: byte;
 
begin
  randomize;
  count := 0;
  for i := 1 to n do 
  begin
    a[i] := random(101);write(a[i], ' ');
    if (i > 2) and (a[i - 1] > a[i - 2]) and (a[i - 1] > a[i]) then inc(count);
  end;
  writeln;write('Count = ', count);
end.
0
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
3553 / 2247 / 1149
Регистрация: 22.11.2013
Сообщений: 5,916
19.03.2017, 19:42 #4
volvo,
незачем вносить условие внутрь цикла:
Pascal
10
11
12
13
  a[1]:=Random(101); a[2]:=Random(101);
  for i:=3 to n do begin
    a[i]:=Random(101); Inc(count,Ord((a[i-1]>a[i-2]) and (a[i-1]>a[i])));
  end;
0
19.03.2017, 19:42
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.03.2017, 19:42
Привет! Вот еще темы с ответами:

Задана последовательность из n вещественных чисел. Определить количество чисел, больших своих соседей - Pascal
Задана последовательность из n вещественных чисел. Определить количество чисел, больших своих соседей, т.е предыдущего и последующего...

Определить, сколько из N точек, заданных случайно, попали в каждую координатную четверть - Pascal
Написать функцию, определяющую, какой координатной четверти принадлежит точка с заданными координатами. Используя ее определить, сколько...

Вывести на экран те элементы списка, которые больше своих соседей - Pascal
Дан список из n целых чисел a1,a2,..,an. Вывести на экран те элементы списка, которые больше своих соседей!

Переписать в массив Y те элементы исходного массива, которые строго больше своих соседей - Pascal
Задан целочисленный массив Х из 20 элементов! Переписать в массив Y те элементы исходного массива, которые строго больше своих соседей....


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

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

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