паскаль

[mokr-lena]

..помогите пожалуйста,никак не получается выполнить это задание..срочно нужно..пожалуйстаа.
1. Задания
В качестве условия задачи берется задание из 5 лабораторной работы, но работать не с одним массивом, а с двумя А1 и А2. В основной программе предусмотреть вызовы подпрограмм к обоим массивам.

2. Правила оформления работы
1. Предусмотреть вывод на экран ФИО, № группы студента, сделавшего работу.
2. Автоматическое формирование исходного массива.
3. Вывод исходного массива, промежуточных результатов и конечного результата с пояснениями.
4. Оформить программу с использованием подпрограмм (процедур и функций – по необходимости). Обосновать использование процедур и функций. Обязательны процедуры формирования и вывода массива.

Вот то задание,которое дано как условие: Дан массив целых чисел а1,…, аn.Все элементы массива, предшествующие наименьшему числу, домножить на это число.
Вот как это условие выполнено в Паскале:

Var A:array[1..100] of integer;
i,imin,n:integer;
Begin
write('Введите размерность: ');readln(n);
writeln('Исходный массив');
For i:=1 to n do
Begin
A[i]:=random(11)-5;
write(A[i]:3);
if i=1 then imin:=1;
if A[i]<A[imin] then imin:=i;
End;
writeln;
writeln('Минимальный элемент: ',A[imin]);
writeln('Преобразованный массив');
For i:=1 to n do
Begin
if i<imin then A[i]:=A[i]*A[imin];
write(A[i]:3);
End;
readln;
End.

[Hemul]

Хорошо, а в чем помощь?

[mokr-lena]

Я работала с одним массивом.а теперь нужно сделать с двумя: для А1 и А2,т.е. там еще надо составить процедуру,функцию.Я не очень хорошо в этом разбираюсь,поэтому объяснила как могла.

[ViktorR]

А что получится, если Ваш код преобразуем так:

Type mas : array[1..100] of integer;
Var A, B : mas;
     i, iminA, iminB, n:integer;

procedure MakeM(var M : mas; n : integer);
begin
   for i:=1 to n do
      M[i]:=random(11)-5;
end;

function NMinEl(M : mas; n : integer) : integer;
var i, k, min : integer;
begin
  k := 1;
  for i:=2 to n do
      if M[i] < M[k] then
          k := i;
  NMinEl := k;
end;

procedure MulC(Var M : mas; k : integer);
begin
   for i:=1 to k do
       M[i]:=M[i]*M[k];
end;

Begin
randomize;
write('Введите размерность: ');readln(n);
MakeM(A,n);
MakeM(B,n);

writeln('Исходный массив A:');
For i:=1 to n do
   write(A[i]:3);
writeln('Исходный массив B:');
For i:=1 to n do
   write(B[i]:3);
iminA := NMinEl(A, n);
writeln;
writeln('Минимальный элемент в A: ',A[imin]);

iminB := NMinEl(B, n);
writeln;
writeln('Минимальный элемент в B: ',B[imin]);

writeln('Преобразованный массив A');
MulC(A; iminA);
For i:=1 to n do
   write(A[i]:3);

writeln('Преобразованный массив B');
MulC(B; iminB);
For i:=1 to n do
   write(B[i]:3);

End.

Ну, вроде как-то так ...
PS: Код не проверял.

[mokr-lena]

что-то не так...программа не выполняется(

[ViktorR]

А способы отладки программы Вам знакомы?
Какие ошибки выдаются при компиляции?
Вот поправил.

Type mas = array[1..100] of integer;
Var A, B : mas;
     i, iminA, iminB, n:integer;

procedure MakeM(var M : mas; n : integer);
begin
   for i:=1 to n do
      M[i]:=random(11)-5;
end;

function NMinEl(M : mas; n : integer) : integer;
var i, k, min : integer;
begin
  k := 1;
  for i:=2 to n do
      if M[i] < M[k] then
          k := i;
  NMinEl := k;
end;

procedure MulC(Var M : mas; k : integer);
begin
   for i:=1 to k do
       M[i]:=M[i]*M[k];
end;

Begin
randomize;
write('Введите размерность: ');readln(n);
MakeM(A,n);
MakeM(B,n);

writeln('Исходный массив A:');
For i:=1 to n do
   write(A[i]:3);
writeln('Исходный массив B:');
For i:=1 to n do
   write(B[i]:3);
iminA := NMinEl(A, n);
writeln;
writeln('Минимальный элемент в A: ',A[iminA]);

iminB := NMinEl(B, n);
writeln;
writeln('Минимальный элемент в B: ',B[iminB]);

writeln('Преобразованный массив A');
MulC(A, iminA);
For i:=1 to n do
   write(A[i]:3);

writeln('Преобразованный массив B');
MulC(B, iminB);
For i:=1 to n do
   write(B[i]:3);

End.

За точность не ручаюсь, но у меня что-то сделала ...

[mokr-lena]

всё,разобралась,работает.Спасибо вам огромное!!!!!!!!!