15.05.2009, 21:29
|
|
Познающий
Регистрация: 02.12.2008
Сообщений: 90
С нами:
9178315
Репутация:
12
|
|
спасибо
|
|
|
18.05.2009, 20:47
|
|
Познающий
Регистрация: 02.12.2008
Сообщений: 90
С нами:
9178315
Репутация:
12
|
|
Ёщё задачка:
Дан одномерный целочисленный массив. Составить программу определения индекса(-ов) минимального элемента массива. Именно номера(индекса) ячейки в которой расположен минимальный член массива!
|
|
|
|
18.05.2009, 21:08
|
|
Постоянный
Регистрация: 12.12.2006
Сообщений: 906
С нами:
10216668
Репутация:
930
|
|
Код:
min:=a[1];
for i:=2 to N do
if a[i]<min then
min:=a[i]
for i:=1 to N do
if a[i]=min then
writeln(i);
|
|
|
|
18.05.2009, 21:13
|
|
Познающий
Регистрация: 02.12.2008
Сообщений: 90
С нами:
9178315
Репутация:
12
|
|
огромное спаибо!
|
|
|
|
|
 |
|
Похожие темы
|
| Тема |
Автор |
Раздел |
Ответов |
Последнее сообщение |
|
turbo pascal
|
sadfeel |
С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby |
0 |
28.02.2009 19:37 |
|
СРОЧНО!!! Turbo Pascal
|
MAG0t |
Разное - Покупка, продажа, обмен |
3 |
23.12.2008 18:36 |
|
TURBO PASCAL 7 1.0
|
Daemond |
С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby |
1 |
03.12.2008 22:32 |
|
Задачи по C++ и Pascal
|
a1nt |
С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby |
18 |
02.04.2007 00:07 |
|
Pascal. Задачи.
|
Zakary |
Болталка |
17 |
18.05.2006 09:59 |
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Линейный вид
