Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
Лизок5416565
0 / 0 / 0
Регистрация: 06.06.2018
Сообщений: 2
1

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

06.06.2018, 05:41. Просмотров 694. Ответов 1
Метки нет (Все метки)

Дано целое число N и набор из N целых чисел. Вывести на экран те элементы из данного набора, которые меньше своего правого соседа и количество К таких элементов.(форма с кнопками)
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.06.2018, 05:41
Ответы с готовыми решениями:

Найти сумму квадратов и число таких элементов массива, которые по модулю меньше минимального элемента
Помогите сделать одномерный массив Даны натуральное N, целые числа A1, … , An. Найти сумму...

Найти произведение элементов, которые больше 10. Все элементы которые меньше 10, заменить на 10.
Заполнить массив А(4.5) с клавиатуры. Найти произведение элементов, которые больше 10. Все элементы...

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

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

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

1
ZfoxAK
505 / 489 / 222
Регистрация: 26.11.2012
Сообщений: 1,929
06.06.2018, 07:11 2
Лучший ответ Сообщение было отмечено Лизок5416565 как решение

Решение

Delphi
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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, System.Math;
 
type
  TMyArray = array of Integer;
 
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
    FArray : TMyArray;
  public
    { Public declarations }
 
    Procedure RandomMyArrayValues (var AMyArr : TMyArray; AMin,AMax:integer);
    Function ArrayToStr (AMyArr : TMyArray) : String;
 
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
{ TForm1 }
 
function TForm1.ArrayToStr(AMyArr: TMyArray): String;
var i: Integer;
begin
Result:=IntToStr(AMyArr[0]);
 for I := 1 to High(AMyArr) do
 Result:=Result + #9 +  IntToStr(AMyArr[i]);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
SetLength(FArray, StrToInt(Edit1.Text));
RandomMyArrayValues(FArray, 1, 25);
Label1.Caption:= ArrayToStr(FArray);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var ArrayTemp : TMyArray; i, cnt: Integer;
begin
  cnt:=0;
 for I := 0 to High(FArray)-1 do
  if FArray[i]< FArray[i+1] then
   begin
    SetLength(ArrayTemp, Length(ArrayTemp)+1);
    ArrayTemp[cnt]:= FArray[i];
    Inc(cnt);
   end;
 Label2.Caption:= ArrayToStr(ArrayTemp) + #10#13 +
  'количестов найденых элементов = ' + IntToStr(cnt);
 
end;
 
procedure TForm1.RandomMyArrayValues(var AMyArr: TMyArray; AMin,AMax:integer);
var i: Integer;
begin
 Randomize;
 for I := 0 to High(AMyArr) do
 AMyArr[i]:=RandomRange(AMin,AMax);
end;
 
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.06.2018, 07:11

Вывести те элементы в наборе, которые меньше своего левого соседа, и количество K таких элементов
Всем привет! Не могу никак понять, как сделать данные задания. Был бы очень благодарен за помощь. ...

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

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


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

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

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