Цитата:
Сообщение от lina_i
найти произведение двух соседних элементов одномерного массива, наиболее приближенных к числу К.
ДСЧ от -50 до +50. N=10.
плиз очень важно!!!
|
Ладно, так и быть, gомогу:
Код:
const
n=10;
var
a:array[1..n]of integer;
i,j,k,t,d,d1,d2:integer;
begin
Write('k= ');
ReadLn(k);
WriteLn;
randomize;
for i:=1 to n do
begin
a[i]:=50-random(101);
write(a[i]:4);
end;
writeln;
writeln;
d:=220;
for i:=1 to n-1 do
begin
d1:=Abs(a[i]-k);
d2:=Abs(a[i+1]-k);
If (d1+d2)<d then
begin
j:=i;
d:=d1+d2;
end;
end;
writeln(a[j]:4,a[j+1]:4,a[j]*a[j+1]:8);
readln;
end.