Технология выполнения индивидуальных заданий. Часть 1 - 30 стр.

UptoLike

Составители:

Рубрика:

for i:=1 to n-1 do

for j:=i+1 to n do

begin

y:= abs(a[i]-a[j]);

if y<x then

begin x:=y; k:=i; p:=j end

end

end;

procedure DelElement(var n: integer; var a: vect; k: integer);

var i: integer;

begin

for i:=k+1 to n do

a[i-1]:=a[i];

n:=n-1

end;

procedure WriteArr(n : integer; const a: vect);

var i: integer;

begin

for i:=1 to n do

write(a[i]:8:3, ' ');

writeln

end;

begin

writeln('Введите размер массива – чётное число ');

readln(m);

writeln('Введите элементы ');

for i:=1 to m do

read(a[i]);