Показать сообщение отдельно
Старый 17.09.2010, 21:27   #2 (permalink)
kreol
Member
 
Аватар для kreol
 
Регистрация: 27.02.2010
Сообщений: 659
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 1312
По умолчанию

Код:
const n=5;
var i: integer;
a: array [0..n] of integer;
begin
for i := 0 to n do
   readln(a[i]);

for i := 0 to n do
  begin
    if a[i]=0 then
      write('nomer elementa massiva = ', i,'   ');
  end;
end.
kreol вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070