Не можу зробити другу частину задачі

[Vitalik1]

Програма яка виводить з клавіатури 10 дісних чисел і визначає індекс елементів масиву,
значення яких дорівнюють значенню першого елементу масиву.
(Це працює) Якщо таких немає вивести необхідне повідомлення на екран(НЕ ПРАЦЮЄ)

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var t:array [1..10] of real;
   i:integer;
   e:boolean;
begin
  for i:=1 to 10 do
  begin
  write('Vvedit element ');
  readln(t[i]);
  end;
  e:=false;
  for i:=1 to 10 do
  begin
  if (t[i]=t[1]) and (i>1) then
  writeln('nomer masuvy:',i);
  e:=true
   end;
   if not e then write('nema');
  readln;

end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Son Of Pain]

for i:=1 to 10 do
begin
if (t[i]=t[1]) and (i>1) then 
begin
writeln('nomer masuvy:',i);
e:=true
end;
end;

________
НУ Ладно, новичок на форуме, правил скорее всего вообще не читал,
но Вам то не стыдно?!
или Вы не знаете, что код нужно оформлять по правилам?!
Модератор.

[Vitalik1]

Cпс за допомогу

[Serge_Bliznykov]

Тема нарушает правила форума.
Да и проблему уже решили.

ЗАКРЫТО