Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/2: Рейтинг темы: голосов - 2, средняя оценка - 4.50
Freshrecords
7 / 1 / 3
Регистрация: 08.04.2013
Сообщений: 163
1

Нахождение номера определённого элемента массива

29.05.2013, 13:20. Просмотров 462. Ответов 2
Метки нет (Все метки)

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


Составить программу, которая формирует массив случайных чисел из 20 элементов (диапазон от -3 до 5), выводит индексы элементов, имеющих значения больше 1.


program Project8888;

{$APPTYPE CONSOLE}



Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var a:array [1..20] of integer;
i:integer;
begin
randomize;
writeln ('Dan Massiv');
for i:=1 to 20 do
a[i]:= -3 +random (8);
write (a[i]:3);
for i:=1 to 20 do
begin
if a[i]>1 then
write (i);
readln;
end;
end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.05.2013, 13:20
Ответы с готовыми решениями:

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

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

Нахождение номера элемента последовательности по его значению
Пожалуйста помогите с написанием кода. Напишите программу нахождения номера элемента...

Нахождение наибольшего элемента массива
Программа нахождения наибольшего элемента массива

нахождение элемента массива строк
Помогите пожалуйста с задачей....мне завтра сдавать а я 0 в паскале( Написать реализацию...

2
Harlem
66 / 66 / 90
Регистрация: 27.02.2013
Сообщений: 156
29.05.2013, 14:35 2
Вот:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var a:array [1..20] of integer;
i:integer;
begin
randomize;
writeln ('Dan Massiv');
for i:=1 to 20 do begin
a[i]:= -3 +random (8);
write (a[i]:3);
end;
for i:=1 to 20 do
if a[i]>1 then
write (i);
readln;
end.
1
Freshrecords
7 / 1 / 3
Регистрация: 08.04.2013
Сообщений: 163
29.05.2013, 14:43  [ТС] 3
Благодарю... за помощь люди добрые
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.05.2013, 14:43

Нахождение максимального элемента массива
создать программу с прoцедyрой для ввoдa мaccивa из N вещеcтвенныx чиcел. Ввеcти двa мaccивa: ...

Нахождение второго по величине элемента массива
const n=10; Var i, j: Integer; y:Integer; m: array of integer; Begin For i:=1 to n do begin...

Нахождение максимального отрицательного элемента массива
нахождение максимального отрицательного элемента массива минимально положительные я нашел ,...


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

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

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