Как организовать массив в виде процедуры ?

@15 · Регистрация: 11.12.2011

Author24 — интернет-сервис помощи студентам

Мне нужно определить минимальный элемент и вывести его значение и индекс.
Я вот сделал:

Pascal

uses crt;
const n=15;
var a:array[1..n] of real;
    i,imin:integer;
    min:real;
begin
   writeln('начальные данные:');
randomize;
writeln('Массив:');
for i:=1 to n do
 begin
  a[i]:=-5+9*random;
  writeln('A[',i:1,']=',a[i]:3:2,' ');
 end;
writeln;
min:=a[1];
imin:=1;
for i:=1 to n do
if min>a[i] then
 begin
  min:=a[i];
  imin:=i;
 end;
writeln('минимум =',min:3:2,' iндекс=',imin);
end.

Только я не знаю как мне сделать введение массива организовать в виде процедуры, которая после введения передает массив в основную программу. Дальше основная программа выводит массив на экран и передает массив во вторую процедуру, которая обрабатывает массив и выводит результат.
Заранее спасибо

@КонецСвета · 02.01.2012, 00:57

для случая, когда элементы массива генерируются случайным образом

Pascal

uses crt;
const n=15;
type mas=array[1..n] of real;
var a: mas;
    i,imin:integer;
    min:real;
 
procedure Vvod (n: integer; var a: mas);
begin
for i:=1 to n do
    a[i]:=-5+9*random;
end;
 
procedure Minim (a: mas; var min: real; var imin: integer);
begin
min:=a[1];
imin:=1;
for i:=1 to n do
    if min>a[i] then
       begin
       min:=a[i];
       imin:=i;
       end;
end;
 
begin
writeln('начальные данные:');
randomize;
Vvod (n,a);
writeln('Массив:');
for i:=1 to n do
    write(a[i]:5:1);
writeln;
Minim (a,min,imin);
writeln('минимум =',min:3:2,' iндекс=',imin);
end.

для случая, если элементы массива вводятся с клавиатуры

Pascal

uses crt;
const n=15;
type mas=array[1..n] of real;
var a: mas;
    i,imin:integer;
    min:real;
 
procedure Vvod (n: integer; var a: mas);
begin
for i:=1 to n do
    begin
    write('A[',i:1,']=');
    readln(a[i]);
    end;
end;
 
procedure Minim (a: mas; var min: real; var imin: integer);
begin
min:=a[1];
imin:=1;
for i:=1 to n do
    if min>a[i] then
       begin
       min:=a[i];
       imin:=i;
       end;
end;
 
begin
writeln('начальные данные:');
writeln('Ввод массива:');
Vvod (n,a);
writeln('Массив:');
for i:=1 to n do
    write(a[i]:4:1);
writeln;
Minim (a,min,imin);
writeln('минимум =',min:3:2,' iндекс=',imin);
end.

	02.01.2012, 00:57