Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
18
Добавлен:
04.06.2015
Размер:
1.16 Кб
Скачать
Program praktika11;
Uses CRT;
Const n=7;
Var a: Array[1..n] Of Integer;
i, max, min, min2, imax, c: Integer;
Begin
For i:= 1 to n Do
Begin
Write('Введите число: ');
ReadLn(c);
a[i]:=c;
End;
WriteLn;
WriteLn('Исходный вектор:');
WriteLn;
For i:= 1 to n Do
Begin
Write(a[i]:5);
End;
min:=a[1];
min2:=a[2];
For i:= 1 to n Do
Begin
If (a[i]<min)
Then min:=a[i];
If (a[i]>max)
Then max:=a[i];
End;
For i:= 1 to n Do
Begin
If ((a[i]<min2) and (a[i]>min))
Then min2:=a[i];
End;
imax:=0;
Repeat
If (min2-min>1)
Then imax:=min2-1
Else
Begin
min:=min2;
min2:=max;
For i:= 1 to n Do
Begin
If ((a[i]<min2) and (a[i]>min))
Then min2:=a[i];
End;
End;
If (min2=max)
Then imax:=max+1;
If ((min2=max) and (min2-min>1))
Then imax:=max-1;
Until(imax<>0);
WriteLn;
WriteLn;
WriteLn('минимальное не входящее в вектор число = ', imax);
ReadLn;
End.

Соседние файлы в папке Информатика Практика