turbo PASCAL помогите з масивами

FORUMS

MEMBERS

RECENT POSTS

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

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

Скрыть

		ANTICHAT > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
turbo PASCAL помогите з масивами

Опции темы

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

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

#10

26.11.2009, 00:06

KentPol

Участник форума

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

Сообщений: 111

С нами: 9440361

Репутация: 36

program z1;
var A:array[1..100] of integer;
i,n:byte;
begin
readln(n);
for i:=1 to n do
readln(A[i]);
for i:=1 to n do
if A[i]=0
then write(i:3);
end.

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

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Turbo Pascal...Need help....	eworld.uz	С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby	2	13.11.2009 20:44
Задачи. Turbo Pascal	Richard	С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby	13	18.05.2009 21:13
turbo pascal	sadfeel	С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby	0	28.02.2009 19:37
TURBO PASCAL 7 1.0	Daemond	С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby	1	03.12.2008 22:32