-9 / 0 / 0
Регистрация: 19.02.2011
Сообщений: 41
1

с клавиатуры вводится последовательность из целых чисел, 0-конец последовательности

20.02.2011, 22:10. Показов 2508. Ответов 1
Метки нет (Все метки)

с клавиатуры вводится последовательность из целых чисел, 0-конец последовательности. в случае совпадения значений вывести номер последнего из них
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.02.2011, 22:10
Ответы с готовыми решениями:

Вводится последовательность целых чисел, 0 - конец последовательности
Вводится последовательность целых чисел, 0 - конец последовательности. Определить, содержит ли...

Вводится последовательность целых чисел,0 –конец последовательности. Определить, содержит ли последовательность хотя бы три отрицательных четных числа
Составить алгоритм решения задачи и написать программу на языке С++. В алгоритме и ...

Вводится последовательность чисел (0 – конец последовательности) while, while do в си
Вводится последовательность чисел (0 – конец последовательности). Определить сколько...

Вводится последовательность чисел, 0-конец последовательности
Водится последовательность чисел, 0-конец последовательности.Подсчитать сколько в ней...

1
26 / 26 / 13
Регистрация: 23.11.2010
Сообщений: 58
20.02.2011, 22:45 2
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
 const n=100;
 var a:array[1..n] of integer;
     k,i,j,indi,indj:integer;
     f:boolean;
begin
    writeln('Vvedite elementy... 0-is znak finish of enter');
     k:=1;
     f:=true;
 
   {ввод значений масива чисел}
 
     while f do
     begin
     write('a[',k,']=');readln(a[k]);
          if (k=n) or (a[k]=0) then f:=false else inc(k);
 
     end;
     k:=k-1;
 
  {вывод введеной последовательности. при желании можно убрать}
 
     for i:=1 to k do
       write(a[i],' ');
 
       writeln;
 
{поиск совпавших элементов и запоминание их индексов}
  
     for i:=1 to k-1 do
       for j:=i+1 to k do
        begin
         if (a[i]=a[j]) and (i<>j) then begin indi:=i; indj:=j;end;
       end;
 
 
        writeln('poskedniy element povtora is=',a[indi], ' index is=',indi,' ',indj);
       
       writeln('index poskednego element povtora is=',indj);
 {       выводить или первый  или второй  writeln  ...можно и оба... }
       readln;
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.02.2011, 22:45
Помогаю со студенческими работами здесь

Вводится последовательность ненулевых чисел, 0 — конец последовательности.
Вводится последовательность ненулевых чисел, 0 — конец последовательности. Определить содержит ли...

С клавиатуры вводится последовательность из n целых чисел
1. С клавиатуры вводится последовательность из n целых чисел ( n-вводится с клавиатуры). Найти...

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

Вводится последовательность чисел, 0 – конец последовательности. Найти два наибольших числа
Вводится последовательность чисел, 0 – конец последовательности. Найти два наибольших числа


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

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

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