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

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

11.07.2011, 13:25. Просмотров 1017. Ответов 2
Метки нет (Все метки)

дан целочисленный массив размера N.вывести все содержащиеся в данном массиве четные числа в порядке убывания их индексов,а также их количество K.
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.07.2011, 13:25
Ответы с готовыми решениями:

Вывести все содержащиеся в данном массиве четные числа в порядке убывания их индексов
1.6. Дан целочисленный массив размера N. Вывести все содержащиеся в данном массиве четные числа в...

Дан целочисленный массив размера N. Вывести все содержащиеся в данном массиве чётные числа в порядке убывания их индексов
Дан целочисленный массив размера N. Вывести все содержащиеся в данном массиве чётные числа в...

Вывести все содержащиеся в массиве нечетные числа в порядке возрастания их индексов
Array8. Дан целочисленный массив размера N. Вывести все содержащиеся в данном массиве...

Вывести все содержащиеся в массиве нечетные числа в порядке возрастания их индексов
помогите пожалуйста :gsad::impossible: Array8. Дан целочисленный массив размера N. Вывести все...

Массив. Вывести четные числа в порядке убывания индексов
Дан целочисленный массив размера N. Вывести все содержащиеся в данном массиве четные числа в...

2
lamed
297 / 297 / 150
Регистрация: 07.05.2011
Сообщений: 592
11.07.2011, 13:43 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
{ Дан целочисленный массив размера N. Вывести все содержащиеся в данном массиве 
четные числа в порядке убывания их индексов,а также их количество K. }
const
  N=5;
var
  a:array[1..n] of integer;
  i,k: integer;
begin
  k:= 0;
  for i:= 1 to n do
    readln(a[i]);
  for i:= n downto 1 do
    if a[i] mod 2 = 0 then
    begin
      writeln('a[',i,']=', a[i]);
      inc(k);
    end;
  writeln('k=', k);
end.
0
Даня98
29 / 29 / 18
Регистрация: 13.02.2010
Сообщений: 145
11.07.2011, 13:45 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
const max = 100;
var a: array[1..max] of integer;
    i,k,n: integer;
begin
readln (n);
for i:= 1 to n do
read (a[i]);
 
for i:= n downto 1 do
if not odd (a[i]) then
begin
write (a[i],' ');
inc (k);
end;
 
writeln ('Количество: ',k);
end.
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.07.2011, 13:45

Увеличить все четные числа, содержащиеся в массиве, на исходное значение первого четного
Здраствуйте ... нужна срочная помощь , завтра контрольная и нужно сдать пару заданий . Кому не...

Вывести в порядке убывания все целые числа
Даны два целых числа A и B (A < B). Вывести в порядке убывания все целые числа, расположенные между...

Вывести все целые числа, расположенные между числами А и В (не включая сами эти числа) в порядке их убывания
Даны количество N чисел и два целых числа A и B (A < B). Вывести все целые числа, расположенные...


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

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

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