Задачи. Turbo Pascal

FORUMS

MEMBERS

RECENT POSTS

УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ

Скрыть

		ANTICHAT > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
Задачи. Turbo Pascal

Страница 2 из 2

Опции темы

Поиск в этой теме

Опции просмотра

15.05.2009, 21:29

Richard

Познающий

Регистрация: 02.12.2008

Сообщений: 90

С нами: 9178315

Репутация: 12

спасибо

𝕏 Twitter Reddit Telegram Копировать ссылку

18.05.2009, 20:47

Richard

Познающий

Регистрация: 02.12.2008

Сообщений: 90

С нами: 9178315

Репутация: 12

Ёщё задачка:

Дан одномерный целочисленный массив. Составить программу определения индекса(-ов) минимального элемента массива. Именно номера(индекса) ячейки в которой расположен минимальный член массива!

18.05.2009, 21:08

Fata1ex

Постоянный

Регистрация: 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

Richard

Познающий

Регистрация: 02.12.2008

Сообщений: 90

С нами: 9178315

Репутация: 12

огромное спаибо!

Страница 2 из 2

« Предыдущая тема | Следующая тема »

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
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