Цитата:
Сообщение от Rustam2503
Грубить не обязательно.
|
Да-да, уважаемый Рустам, простите великодушно, что поздоровался! Впредь не повторится. И как это я забыл, что мы тут все Вам по гроб жизни обязаны, а потому ожидать всяких там "здравствуйте", да "пожалуйста", да "помогите" нам не пристало! Задание дано, наше дело - каблуками прищелкнуть да выполнять.
Цитата:
Сообщение от Rustam2503
Если не знаешь, то писать не обязательно
|
Рустам, Вы меня, убогого, уж пожалуйста извините - но я не слишком Вас обеспокою, выложив решение задачки? Ну что ж делать - знаю...
Код:
Const
N=20;
Var
A:Array[1..N] of Real;
i,j,Imax:Byte;
b:boolean;
Max,Max1,Min:Real;
Begin
For i:=1 to N do
begin
repeat
b:=true;
write('A[',i:2,']= ');
readln(A[i]);
for j:=1 to i-1 do
if A[i]=A[j] then b:=false;
if Not(b) then writeln('Incorrect value!');
until b;
end;
Max:=A[1];
Imax:=1;
Min:=A[1];
for i:=2 to N do
begin
if A[i]>Max then
begin
Max:=A[i];
Imax:=i;
end;
if A[i]<Min then Min:=A[i];
end;
Max1:=Min;
for i:=1 to N do
if (A[i]>Max1) and (i<>Imax) then Max1:=A[i];
Writeln('Maximal element is ',Max:0:3);
Writeln('Second value element is ',Max1:0:3);
Readln
End.