HOME

FORUMS

MEMBBERS

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

		Форум АНТИЧАТ > Программирование_OLD > С/С++, C#, Delphi, .NET, Asm
turbo PASCAL помогите з масивами

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

Опции темы

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

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

26.11.2009, 00:27

h(f)ucker

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

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

Сообщений: 175

Провел на форуме:
2835808

Репутация: 185

Элементу какому нибудь присвой его
Например так
for z:=1 to 10 do begin

И в var не забуть z описать

26.11.2009, 00:33

banana

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

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

Сообщений: 298

Провел на форуме:
1241030

Репутация: 229

Отправить сообщение для banana с помощью ICQ

Нулевые элементы это в смысле ячейка массива равна нулю?

Если да, то
Program lol;
uses crt;
var a:array [1..5];
i,temp:integer;
begin
clrscr;
Randomize;
For i:=1 to 5 do
A[i]:=random(10);
Writeln ('Indexi nulevih elementov: ');
If a[i]:=0 then begin
Temp:=Temp+1;
Writeln (i):3;
end
Writeln ('Nulevih elementov : ',Temp);
end.