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

Вывод номера элемента массива, удовлетворяющего требованиям

12.01.2013, 04:54. Просмотров 1472. Ответов 2
Метки нет (Все метки)

Есть массив с рандомными числами(от -20 до 20). Нужно вывести номер элемента массива, который первым по счету будет больше 0. Вывод должен идти через процедуру.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program T;
const n=28;
var f:array[1..n] of integer;
i,a:integer;
[B]Procedure AA(i,a:integer);
begin
for i:=1 to n do
if f[i]>0 then writeln(i);
end;[/B]
begin
randomize;
for i:=1 to n do
f[i]=random(41)-20;
AA(i,a);
readln;
end.
Если сделать так, как написано выше, выводятся все номера элементов, значения которых выше 0, а нужно что бы выводился только номер первого по счету элемента, значение которого превышает 0. Подскажите, пожалуйста, что нужно изменить.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.01.2013, 04:54
Ответы с готовыми решениями:

номера минимального элемента массива и элемента, являющегося минимальным без учета этого элемента
11.109. Дан массив. Определить: а) максимальный элемент массива и элемент,...

Написать программу нахождения n-го члена последовательности и его номера, удовлетворяющего условию
Дана последовательность, заданная формулой общего члена....

Нахождение номера максимального элемента массива
Помогите пожалуйста, до завтра надо сдать 3 индивидуальные работы, 1 я сделал,...

Нахождение номера определённого элемента массива
Всем привет. Задача звучит так. Но что то у меня не идет. Нуждаюсь в помощи.....

Напечатать номера элементов, которые равны на единицу больше наименьшего элемента массива
1)Задан одномерный массив C(N) (N<=70). Напечатать номера элементов, которые...

2
zvoronz
272 / 240 / 56
Регистрация: 29.05.2012
Сообщений: 889
12.01.2013, 05:19 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program T;
const n=28;
var f:array[1..n] of integer;
i,a:integer;
Procedure AA(i,a:integer);
begin
for i:=1 to n do
if f[i]>0 then
begin
    writeln(i);
    exit;
end;
end;
begin
randomize;
for i:=1 to n do
f[i]=random(41)-20;
AA(i,a);
readln;
end.
1
KiraOnce
0 / 0 / 0
Регистрация: 12.01.2013
Сообщений: 5
12.01.2013, 16:05  [ТС] 3
zvoronz, спасибо большое!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.01.2013, 16:05

Заполнить массив случайными числами и найти два максимальных элемента массива и их номера
Прошу помощи в выводе номеров двух максимальных в массиве. Добавлено через...

Составить программу нахождения экстремального элемента одномерного массива или его порядкового номера
Составить программу нахождения экстремального элемента или его порядкового...

Вычислить сумму тех элементов массива, порядковые номера которых в 2 раза меньше значений этого элемента
Задана последовательность из К целых чисел. Вычислить сумму тех элементов...


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

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

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