Изменить код добавив подпрограммы-процедуры - Turbo Pascal

Формулировка задачи:

Здравствуйте, помогите изменить код добавив процедуры (procedure)
USES CRT;
Var
a: array [1..10] of REAL;
n, min: REAL;
i: byte;
ind: byte;
Begin
CLRSCR;
 
 write('N = '); readln(n);
 
  randomize;
  for i:=1 to 10 do begin
    a[i]:=random(103)/7;
    write(a[i]:6:2);
  end;
 
 
 
  min := 1000;
  for i:=1 to 10 do begin
 
    if abs(a[i]-n) < min then begin
 
        min :=  abs(a[i]-n);
        ind := i;
 
    end;
  end;
 
  writeln;
  writeLN(ind);
  readln;
END.

Код к задаче: «Изменить код добавив подпрограммы-процедуры - Turbo Pascal»

textual
const
m=10;
type
amas=array[1..m] of real;
procedure massiv (var a:amas);
var i: integer;
begin
 randomize;
 for i:=1 to m do
  begin
    a[i]:=random(103)/7;
    write(a[i]:6:2);
  end;
 writeln;
 end;
 
procedure index(a:amas;n:real);
var i,ind:integer;
begin
ind:=1;
for i:=1 to m do
if abs(a[i]-n) <abs(a[ind]-n) then ind := i;
writeLN('Индекс=',ind);
end;
var a:amas;
    n:real;
begin
massiv(a);
write('N = '); readln(n);
index(a,n);
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

5   голосов, оценка 3.800 из 5


СДЕЛАЙТЕ РЕПОСТ