нужно найти ошибку, правильно написать тело программы.

[ВДПУ]

Я написал программу. Мне нужно вывести на экран то, что элементов массива нет.



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;

[Летучий_СкилетиК]

Мне нужно вывести на экран то, что элементов массива нет

Здесь помоему всегда будут элементы

for i:=1 to 10 do
begin
write('Vvedit element ');
readln(t[i]);
end;

вы их будете в любом случае вводить

if (t[i]=t[1]) and (i>1) then

ну здесь вы все начиная со 2-го элемента сравниваете с первым... непонядно зачем

ну и еще

e:=true

у ровно 10 раз у вас становится истиной без никаких условий

[Tayfun]

ВДПУ, думаю вам стоит выложить условие задания полностью. Как в учебнике. Описание вгоняте немного в ступор )))