ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
26.11.2009, 00:06
|
|
Участник форума
Регистрация: 03.06.2008
Сообщений: 111
Провел на форуме:
911872
Репутация:
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 |
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Древовидный вид