Списки. Линейные массивы

@Helen2 · Регистрация: 17.10.2016

Студворк — интернет-сервис помощи студентам

Дано линейную таблицу A[1:15], которая состоит из целых чисел. Записать алгоритм и составить программу, которая будет определять сколько раз число 5 встречается среди элементов, которые стоят на непарных местах , а также перестановка наименьшего элемента в таблице с последним элементом.

@D1973 · 01.04.2017, 08:38

Сообщение от Helen2

которые стоят на непарных местах

Что такое "непарное место"? Нечетное что ли?

@Helen2 · 01.04.2017, 11:29 **[ТС]**

Да...

@D1973 · 01.04.2017, 19:27

Хорошо, этот вопрос решили... Другой вопрос: что непонятно? Как цикл организовать от 1 до 15?

@Helen2 · 02.04.2017, 16:20 **[ТС]**

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

@D1973 · 03.04.2017, 13:09

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var iMin, Count5, i : integer;
    tmp : String;
begin
 Count5 := 0;
 StringGrid2.Rows[0].CommaText := StringGrid1.Rows[0].CommaText;
 iMin := 0;
 for i := 0 to 14 do
  begin
   if (Odd(i + 1)) and (StrToInt(StringGrid1.Cells[i, 0]) = 5) then inc(Count5);
   if StrToInt(StringGrid2.Cells[i, 0]) < StrToInt(StringGrid2.Cells[iMin, 0]) then iMin := i;
  end;
 tmp := StringGrid2.Cells[14, 0];
 StringGrid2.Cells[14, 0] := StringGrid2.Cells[iMin, 0];
 StringGrid2.Cells[iMin, 0] := tmp;
 Label1.Caption := Format('среди элементов, которые стоят на нечетных местах, число 5 встречается %d раз', [Count5]);
end;

@Helen2 0 / 0 / 0 Регистрация: 17.10.2016 Сообщений: 44
		1
	Списки. Линейные массивы 29.03.2017, 23:36. Показов 1007. Ответов 5 Метки нет (Все метки) Дано линейную таблицу A[1:15], которая состоит из целых чисел. Записать алгоритм и составить программу, которая будет определять сколько раз число 5 встречается среди элементов, которые стоят на непарных местах , а также перестановка наименьшего элемента в таблице с последним элементом. 0

@D1973 Модератор 8495 / 5655 / 2290 Регистрация: 21.01.2014 Сообщений: 24,249 Записей в блоге: 3
	01.04.2017, 08:38	2
	Сообщение от Helen2 которые стоят на непарных местах Что такое "непарное место"? Нечетное что ли? 0

@Helen2 0 / 0 / 0 Регистрация: 17.10.2016 Сообщений: 44
	01.04.2017, 11:29 [ТС]	3
	Да... 0

@D1973 Модератор 8495 / 5655 / 2290 Регистрация: 21.01.2014 Сообщений: 24,249 Записей в блоге: 3
	01.04.2017, 19:27	4
	Хорошо, этот вопрос решили... Другой вопрос: что непонятно? Как цикл организовать от 1 до 15? 0

@Helen2 0 / 0 / 0 Регистрация: 17.10.2016 Сообщений: 44
	02.04.2017, 16:20 [ТС]	5
	Нет, непонятно как сделать так, что бы программа определяла сколько раз число 5 встречается среди элементов, которые стоят на непарных местах , а также перестановка наименьшего элемента в таблице с последним элементом. 0

Опции темы

Списки. Линейные массивы

Решение