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

Найти количество тех элементов, значения которых нечетны и по модулю превосходят заданное число А

10.10.2013, 07:33. Показов 1063. Ответов 1
Метки нет (Все метки)

2.Найти количество тех элементов, значения которых нечетны и по модулю превосходят заданное число А.
3.Найти номер последней пары соседних элементов, сумма которых больше заданного числа.

помогите пожалуйста переделать задание 2 и 3
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
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Edit2: TEdit;
    GroupBox1: TGroupBox;
    CheckBox1: TCheckBox;
    Edit3: TEdit;
    CheckBox2: TCheckBox;
    Edit5: TEdit;
    CheckBox3: TCheckBox;
    Edit4: TEdit;
    Button2: TButton;
    Label2: TLabel;
    Edit6: TEdit;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  N,i,a,p,k,s:integer;
  M:array of integer;
 
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 Randomize;
 N:=strtoint(edit1.Text);
 edit2.text:=' ';
 SetLength(M,N);
for i:=0 to N-1 do
 begin
 M[i]:=random(31)-10;
 edit2.text:=edit2.text+inttostr(M[i])+' ';
 end;
 
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
a:=strtoint(edit6.Text);
p:=1;
k:=0;
if CheckBox1.Checked then
begin
for i:=0 to N-1 do
if ((M[i] mod 2=0) and (abs(M[i])<5) and (M[i]<>0)) then p:=p*M[i];
end;
{if CheckBox2.Checked and (M[i] mod 2=1) and (abs(M[i])>a) then k:=k+1;
if CheckBox3.Checked and ((M[i]+M[i+1])>a) then s:=i; помогите переделать эту часть }
 
 edit3.Text:=inttostr(p);
 edit5.Text:=inttostr(s);
 edit4.Text:=inttostr(k);
end;
 
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.10.2013, 07:33
Ответы с готовыми решениями:

Найти количество элементов массива, значения которых положительны и по модулю не превосходят заданное число
1Найти количество тех элементов, значения которых положительны и по модулю не превосходят заданное...

Найти количество тех элементов, значения которых положительны и по модулю не превосходят заданное число А
Найти количество тех элементов, значения которых положительны и по модулю не превосходят заданное...

Найти количество тех элементов, значения которых не четны и по модулю превосходят заданное число А
Доброго времени суток. Помогите решить или хотя бы покажите куда думать. Дан массив целых чисел...

Найти количество тех элементов, значения которых по модулю превосходят 100 и кратны 5 и 10
1. Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка...

1
693 / 567 / 414
Регистрация: 31.03.2013
Сообщений: 1,029
10.10.2013, 13:50 2
byran585,
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
begin
  a:=strtoint(edit6.Text);
  p:=1;
  k:=0;
  s:=0;
  if CheckBox1.Checked then
    for i:=0 to n-1 do
      if (M[i] mod 2=0) and (abs(M[i])<5) and (M[i]<>0) then p:=p*M[i];
  if CheckBox2.Checked then
    for i:=0 to n-1 do
      if (M[i] mod 2=0) and (abs(M[i])>a) then k:=k+1;
  if CheckBox3.Checked then
    for i:=0 to n-2 do
      if M[i]+M[i+1]>a then s:=i;
  edit3.Text:=inttostr(p);
  edit5.Text:=inttostr(s);
  edit4.Text:=inttostr(k);
end;
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.10.2013, 13:50

Найти количество положительных элементов массива, значения которых не превосходят заданное число N
Составьте программу на С++. Дан двумерный массив целых чисел. Найти количество положительных...

Найти произведение и количество элементов массива, значения которых превосходят заданное число
Элементы массива вводить с клавиатуры. Размерность массива задать самостоятельно. Найти...

Найти количество положительных элементов массива, значения которых не превосходят заданное число N.
Составьте программу на С++. Дан двумерный массив целых чисел. Найти количество положительных...

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


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

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

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