Модуль

[0525]

Модуль :

unit modul;
interface
const n=5;
type mas=array[1..n] of integer;
procedure massiv(var a:mas);
function min(a:mas):integer;
procedure zero(var a:mas);
implementation
procedure massiv(var a:mas);
var i:integer;
begin
writeln('Введите ',n,' элементов массива, целые числа');
for i:=1 to n do
read(a[i]);
end;
function min(a:mas):integer;
var i,m:integer;
begin
m:=1;
for i:=2 to n do
if a[i]<a[m] then m:=i;
min:=m;
end;
procedure zero(var a:mas);
var i:integer;
begin
for i:=min(a)+1 to n do
a[i]:=0;
writeln;
writeln('Массив после замены');
for i:=1 to n do
write(a[i],' ');
end;
end.

Программа :

uses modul;
var a:mas;
begin
massiv(a);
zero(a);
end.

Мне нужно сделать 1) вывод в самой программе и то, что 2) находится до процедур сделать опять же в программе. Как это сделать?

[Serge_Bliznykov]

Сообщение от 0525

Как это сделать?

что сделать? Выкинуть модуль и всё, что в нём есть написать в коде основной программы?

[0525]

Не нужно модуль выкидывать. В этом то и заключается смысл задачи)
Сделайте просто вывод в самой программе. Потому , что то, как я обратился из программы к модулю - преподавателю не понравилось)

[Аватар]

Ну коль смог там вывод сделать, что мешает его перетащить в другое место?

[Serge_Bliznykov]

Сообщение от 0525

Сделайте просто вывод в самой программе

зачем, если он есть в модуле?

он такое хочет?

....
procedure zero(var a:mas);
var i:integer;
begin
   for i:=min(a)+1 to n do a[i]:=0;
end;

uses modul;
var a:mas;
  i:integer;
begin
  massiv(a);
  zero(a);

  {вывод массива a}
  WriteLn('Массив после замены');
  for i:=1 to n do write(a[i],' ');
  WriteLn;

end.

Сообщение от 0525

Потому , что то, как я обратился из программы к модулю - преподавателю не понравилось)

что конкретно не понравилось?

p.s. может быть, преподаватель подозревает, что модуль написали не Вы и не понимаете, как он работает?
и хочет проверить ваши знания?