Вывести номер последнего числа в наборе, большего К

@Ortner_jon · Регистрация: 22.02.2011

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

Написать программу обработки одномерного массива. При решении задачи использовать операторы повторения For, While, Repeat. Дано целое число К и набор не нулевых целых чисел; признак его завершения-число 0. Вывести номер последнего числа в наборе, большего К. Если таких чисел в наборе нет, то вывести 0.

@SuPeR XaKer · 14.03.2011, 19:17

Не по теме:

очень содержательное название темы.

@Puporev · 14.03.2011, 19:20

Не по теме:

Я уж ему красные карточки за такие названия выписывал...

.

@Ortner_jon · 14.03.2011, 20:39 **[ТС]**

брат помоги составить программу....просто у меня завтра здача работы последний срок

@Puporev · 14.03.2011, 20:58

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

Написать программу обработки одномерного массива.

Вот это ты откуда взял? Вообще-то эта задача решается без массива в цикле repeat..until

@Ortner_jon · 14.03.2011, 21:07 **[ТС]**

я перепутал... там просто условие: Дано целое число К и набор ненулевых целых чисел; признак его завершения-число 0. Вывести номер последнего числа в наборе, большего К. Если таких чисел не, то вывести 0.

@Puporev · 14.03.2011, 21:08

Вот решение этой задачи. Для массива обычно сначала задают размер, а потом вводят, здесь этого нет.

Pascal

uses crt;
var a,k,i,n:integer;
begin
clrscr;
write('Введите целое число k=');
readln(k);
writeln('Введите набор чисел для сравнения с числом ',k);
i:=0;
n:=0;
repeat
readln(a);
if a<>0 then
 begin
  i:=i+1;
  if a>k then n:=i;
 end;
until a=0;
writeln('Номер последнего числа, большего ',k,'=',n);
readln
end.

@Ortner_jon · 14.03.2011, 21:14 **[ТС]**

я торопился просто..... выручите

@Ortner_jon 5 / 5 / 0 Регистрация: 22.02.2011 Сообщений: 52
		1
	Вывести номер последнего числа в наборе, большего К 14.03.2011, 19:15. Показов 1793. Ответов 7 Метки нет (Все метки) Написать программу обработки одномерного массива. При решении задачи использовать операторы повторения For, While, Repeat. Дано целое число К и набор не нулевых целых чисел; признак его завершения-число 0. Вывести номер последнего числа в наборе, большего К. Если таких чисел в наборе нет, то вывести 0. 0

@SuPeR XaKer
	14.03.2011, 19:17 #2
	Не по теме: очень содержательное название темы. 1

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	14.03.2011, 19:20	3
	Не по теме: Я уж ему красные карточки за такие названия выписывал... . 1

@Ortner_jon 5 / 5 / 0 Регистрация: 22.02.2011 Сообщений: 52
	14.03.2011, 20:39 [ТС]	4
	брат помоги составить программу....просто у меня завтра здача работы последний срок 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	14.03.2011, 20:58	5
	Сообщение от Ortner_jon Написать программу обработки одномерного массива. Вот это ты откуда взял? Вообще-то эта задача решается без массива в цикле repeat..until 1

@Ortner_jon 5 / 5 / 0 Регистрация: 22.02.2011 Сообщений: 52
	14.03.2011, 21:07 [ТС]	6
	я перепутал... там просто условие: Дано целое число К и набор ненулевых целых чисел; признак его завершения-число 0. Вывести номер последнего числа в наборе, большего К. Если таких чисел не, то вывести 0. 0

@Ortner_jon 5 / 5 / 0 Регистрация: 22.02.2011 Сообщений: 52
	14.03.2011, 21:14 [ТС]	8
	я торопился просто..... выручите 0

Вывести номер последнего числа в наборе, большего К

Решение