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

Вывести элементы массива с нечетными номерами в порядке убывания номеров

18.03.2018, 17:42. Показов 649. Ответов 1
Метки нет (Все метки)

.Дан массив A размера N (N — нечетное число). Вывести его элементы с нечетными номерами в порядке убывания номеров: AN, AN−2, AN−4, ..., A1. Условный оператор не использовать.

Добавлено через 4 минуты
Пытался решить но что-то не особо понял как это делать (
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
unit Unit17;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Grids;
 
type
  TForm17 = class(TForm)
    Button1: TButton;
    StringGrid1: TStringGrid;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form17: TForm17;
  var
  A:array[1..7] of integer;
  N,i: integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm17.Button1Click(Sender: TObject);
begin
 i:=StrToint (Edit1.text) ;
for i := 1 to N do
read(A[i])                ;
i := i - 2;
while i > 1 do
begin
  i := i - 2;
  StringGrid1.Cells [i,0]:= inttostr (I);
  StringGrid1.Cells [i,1]:= inttostr (a[I]);
 
 
end;
 
 
end;
 
end.
Добавлено через 2 минуты
Пытался решить но что-то не особо понял как это делать(
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.03.2018, 17:42
Ответы с готовыми решениями:

Вывести элементы массива с нечетными номерами в порядке убывания номеров
Помогите пожалуйста,нужна программа.Пишу сама,выдает runtime error 105.Может знаете,что за ошибка?...

Дан массив A размера N (N — нечетное число). Вывести его элементы с нечетными номерами в порядке убывания номеров: AN,
Дан массив A размера N (N — нечетное число). Вывести его элементы с нечетными номерами в порядке...

Вывести элементы массива с четными номерами в порядке возрастания номеров: A2, A4, A6, …, AN.
Array1. Дан массив A размера N (N — четное число). Вывести его элементы с четными номерами в...

Вывести элементы массива с чётными номерами в порядке возрастания номеров
Дан массив A размера N (N-четное число). Вывести его элементы с чёиными номерами в порядке...

1
Модератор
1436 / 1011 / 228
Регистрация: 31.05.2013
Сообщений: 6,645
Записей в блоге: 6
18.03.2018, 23:35 2
Delphi
1
2
3
4
5
6
7
i := n;
while i > 0 do
begin
  StringGrid1.Cells [i,0]:= inttostr (I);
  StringGrid1.Cells [i,1]:= inttostr (a[I]);
  i := i - 2;  
end;
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.03.2018, 23:35
Помогаю со студенческими работами здесь

Заменить элементы массива с нечетными номерами на квадраты их номеров
Заменить элементы массива с нечетными номерами на квадраты их номеров.

Расставить элементы строк с четными номерами матрицы в порядке убывания
Добрый день всем. Нужна помощь в решении нелегкой (для меня) задачки... Дана матрица A порядка n....

Дан массив A размера N. Вывести его элементы с удвоением их номеров в порядке возрастания номеров: A1, A2, A4, A8,…Условный оператор не использовать.
помогите с задачей . буду очень благодарен ... • Дан массив A размера N. Вывести его элементы с...

Вывести все содержащиеся в данном массиве четные числа в порядке убывания их номеров, а также их количество
Примечания: 1. Все упомянутые в заданиях массивы вводятся с клавиатуры. 2. Размер массива N...


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

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

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