массив,множество

[M_arisha]

ну..вот,как-то так:

program PR4;
Uses Crt;
type
mass=array[1..100] of integer;
var
a:mass;
n,i:byte;
count:integer;
begin
ClrScr;
count:= 0;
writeln('Лабораторная работа №4');
writeln('Корзун,Тужиков,Шаблыко');
write('n= '); readln(n);
writeln('Vvedite elementy massiva:');
for i:=1 to n do
begin write('a[',i,']= ');readln(a[i]);
if(a[i]<0)or(a[i]>255) then exit
else
if a[i]-a[i-1]>7 then inc(count)
else exit;
writeln('количество правильно введённых элементов: ',count);
end;
end.

[M_arisha]

program PR4;
Uses Crt;
type
    mass=array[1..100] of integer;
var
    a:mass;
    n,i:byte;
    count:integer;
begin
    ClrScr;
    count:= 0;
    writeln('Лабораторная работа №4');
    writeln('Корзун,Тужиков,Шаблыко');
    write('n= ');  readln(n); 
    writeln('Vvedite elementy massiva:');
      for i:=1 to n do 
        begin write('a[',i,']= ');readln(a[i]);  
               if(a[i]<0)or(a[i]>255) then exit
                  else
                    if a[i]-a[i-1]>7 then inc(count)
                      else exit;
                        writeln('количество правильно введённых элементов: ',count); 
        end; 
end.

[TinMan]

Хорошо, только непонятно, зачем ты разделила на два IF. Нужно так:

if (a[i]<0) or (a[i]>255) or (Abs(a[i]-a[i-1])<=7) then exit else inc(count);

И обрати внимание на функцию Abs, без нее проверка будет неправильной.

А еще не совсем ясна общая логика.. ПолучаетсЯ, что ты выходишь на writeln ТОЛЬКО если прошла весь цикл. Но тогда count будет равно n. И печататься будет только n всегда. То есть у тебя в случае ошибки прога не выдает ничего. Мне кажется, это не совсем то, что должно быть..

[M_arisha]

убедител))буду править,спасибо)

[TinMan]

Сообщение от M_arisha

убедител))буду править,спасибо)

О, я еще не так могу убедителивать, пожалуйста! (хорошо, что не убедятел..))

Показывай, что получается. Всегда рад помочь тому, кто действительно делает что-то сам.

[M_arisha]

Ха-ха-ха,вот написала,прости пожалуйста))