Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
firmach228
0 / 0 / 0
Регистрация: 13.03.2016
Сообщений: 5
1

В целочисленном массиве найти первое с конца нечётное число

13.03.2016, 19:45. Просмотров 829. Ответов 4
Метки нет (Все метки)

в целочисленном массиве найти первое с конца не чётное число
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.03.2016, 19:45
Ответы с готовыми решениями:

В целочисленном массиве найти первое с конца нечетное число (цикл while)
В целочисленном массиве найти первое с конца нечетное чило Через while

В целочисленном массиве найти первое число, принадлежащее отрезку[-2;5]
Через while. В целочисленном массиве найти первое число, принадлежащее отрезку .

Выяснить, есть ли в целочисленном массиве одинаковые элементы, равноудаленные от начала и конца массива
Выяснить, есть ли в целочисленном массиве одинаковые элементы, равноудаленные от начала и конца...

Выяснить, есть ли в целочисленном массиве одинаковые элементы, равноудаленные от начала и конца массива
Помогите пожалуйста с задачей=) Выяснить, есть ли в целочисленном массиве одинаковые элементы,...

Найти первое отрицательное число в массиве
Думаю что он легкий, а решить не могу( не умею решать их) ( В массиве чисел А1 А2......Аn найти...

4
Peoples
Эксперт С++
1423 / 892 / 773
Регистрация: 06.02.2016
Сообщений: 2,344
Записей в блоге: 19
Завершенные тесты: 5
13.03.2016, 20:44 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program pr;
 
var
  a: array of integer;         // динамический массив
  i, n: integer;
 
begin
  writeln('Введите размер массива');
  readln(n);
  setlength(a, n);          // устанавливаем длину массива
  for i := 0 to n - 1 do
  begin
    a[i] := random(21);     // диапазон заполнения можешь ставить любой (тут от 0 до 20)
    write(a[i]:3);
  end;
  writeln;
  for i := n - 1 downto 0 do     // проверяем массив с конца
    if (a[i] mod 2 <> 0) then
    begin
      writeln(a[i]);      // выводим 1 нечётный элемент с конца 
      break;
    end;
end.
1
Kapytan
131 / 146 / 64
Регистрация: 27.06.2013
Сообщений: 528
13.03.2016, 21:02 3
Peoples, в Turbo Pascal нет динамических массивов.
0
Peoples
Эксперт С++
1423 / 892 / 773
Регистрация: 06.02.2016
Сообщений: 2,344
Записей в блоге: 19
Завершенные тесты: 5
13.03.2016, 21:07 4
Лучший ответ Сообщение было отмечено firmach228 как решение

Решение

Обычный
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program pr;
 
var
  a: array [1..100] of integer;        
  i, n: integer;
 
begin
  writeln('Введите размер массива');
  readln(n);
  for i := 1 to n  do
  begin
    a[i] := random(21);     // диапазон заполнения можешь ставить любой (тут от 0 до 20)
    write(a[i]:3);
  end;
  writeln;
  for i := n  downto 1 do     // проверяем массив с конца
    if (a[i] mod 2 <> 0) then
    begin
      writeln(a[i]);      // выводим 1 нечётный элемент с конца 
      break;
    end;
end
1
Kodzaev
3013 / 1901 / 1647
Регистрация: 30.04.2011
Сообщений: 3,054
13.03.2016, 21:08 5
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
const
  size = 10;  {размер массива}
 
var
  x: array [1..size] of integer;
  i, k: byte;
 
begin
  Randomize;
  k := 0;
  for i := 1 to size do
  begin
    x[i] := Random(21);
    Write(x[i], ' ');
    if Odd(x[i]) then
      k := x[i]
  end;
  WriteLn;
  WriteLn('Поселедний нечетный элемент: ', k);
  {k = 0 если в массиве нет нечетных элементов}
  ReadLn
end.
1
13.03.2016, 21:08
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.03.2016, 21:08

В массиве чисел найти первое отрицательное число
Думаю что он легкий, а решить не могу( не умею решать их) ( В массиве чисел А1 А2......Аn найти...

В одномерном массиве найти первое простое число
Дан одномерный числовой массив. Найти первое простое число этого массива

Найти в массиве первое число равное заданному
Найти в массиве первое число равное заданному целому числу а и вывести error если таких чисел нет.


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

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

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