Проверьте решение массива.

[Profan4ik]

Ввести массив G6, с помощью под программы(умножение матрицы на скаляр) оформировать G6*S=G6*1.5(S=1.5). С помощью под программы(Вычисление минимального по модулю элемента матрицы) найти минимальный по абсолютной величине элемент массива G6*S. Вычислить среднее арифметическое элементов массива G6, меньших чем GSmin.
Идеи такие. Требуют создать массив из 6 элементов используя функцию при нахождении GSmin и процедуру при вычеслении средне арифметического элементов массива G6 < GSmin.
Это все в паскале.
Procedure multiple (scaler : real; var{"var" ставится в случае если надо переменную как-то изменить} Massive : mas {"mas" заранее созданный тип - обязательно(наверно)});
Var i : integer; {локальная переменная}
Begin
For i := 1 to n do
Massive [i] := Massive[i] * scaler;
end;
или:
Function Multipler (Scaler : real; Massive : mas) : mas {тип возвращаемой переменной-в данном случае массив Mas};
Var i : integer;
Begin
For i := 1 to n do
Multipler [i] := Massive [i] * scaler;
End;
На счет работоспособности функции гарантии нет (только теоретически).
2."С помощью под программы(Вычисление минимального по модулю элемента матрицы) найти минимальный по абсолютной величине элемент массива G6*S." здесь я бы использовал функцию.
Function minimal (massive : mas) : real;
Var min : real;
i : real;
Begin
min := massive [1];
For i := 2 to n do
If massive [i] < min then min := massive [i];
Mininmal := min;
end;

Использование процедуры : <имя процедуры и параметры>;
Использование функции: <имя переменной> := <имя функции и параметры>;

Проблема собственно в том, что мне не собрать это всё в одну программу рабочую.. Уже головой бьюсь, и толку 0. Кто мне может всё это как нибудь собрать в программу, а то слишком туп для этого

[ROMA2PVT]

uses
  CRT;
Type
  mas=array [1..100,1..100] of integer;
var
  a:mas;
  b:mas;
  i,j,n,m,imin,jmin,min,sum,k,kol:integer;
  sr:real;

Procedure proizv(Var kl2:mas; kl:mas);
begin
  writeln('Массив после умножения: ');
      for i := 1 to n do
       begin
         for j:=1 to m do
           begin
              kl2[i,j]:=round(kl[i,j]*1.5);
              write(kl2[i,j]:3,'  ');
           end;
           writeln;
       end;
end;

procedure ABSMinEl(Var kl:mas);
begin
imin:=1;
  jmin:=1;
  min:=kl[1,1];
  for i:=1 to n do
      for j:=1 to m do
        if abs(kl[i,j])<abs(min) then
              begin
                 min:=kl[i,j];
                 imin:=i;
                 jmin:=j;
              end;
              writeln;
               writeln('MIN[',imin,';',jmin,']:=',min,' ');
               end;

procedure proizv(Var kl:mas);
begin
sum:=0;
kol:=0;
  for i:=1 to n do
    for j:=1 to m do
      if kl[i,j]<min then
          begin
            sum:=sum+kl[i,j];
            inc(kol);
          end;
          if kol<>0 then
          begin
          sr:=sum/kol;
          writeln('среднее арифметическое элементов массива G6, меньших чем GSmin:=',sr:1:3)
 end
 else writeln('В массиве нет елементов меньше!!!');
 end;
 
begin
Clrscr;
Randomize;
write('Введите количество строк: ');
 readln(n);
   write('Введите количество столбцов: ');
     readln(m);
 writeln('Исходная матрица: ');
  for i := 1 to n do
    begin
     for j:=1 to m do
       begin
          a[i,j]:=Random(12)-2;
          write(a[i,j]:2,'  ');
       end;
       writeln;
    end;
writeln;
  proizv(b,a);
writeln;
 ABSMinEl(b);
writeln;
proizv(a);
readkey;
end.

Вроди не ошибся нигде.

[Profan4ik]

Ок щас протестим.

[Profan4ik]

Всё работает прекрасно. вот только есть одно замечание.
Если в матрицу забивать 1 строку, как по заданию дано, то он и находит 1 самый маленький элемент. при квадратной матрице вообще виснет
Если например взять матрицу 3 строки 6 слтолбцов, то он найдет 1 наименьший элемент, с его позицией, например [2,5], а таких элементов там будет еще несколько. но благо у меня строка одна
Так что за прогу спасибо.

[ROMA2PVT]

Если в матрицу забивать 1 строку

Матрица в одну строку?

[Profan4ik]

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

Матрица в одну строку?

А что не так??
1 строка и n столбцов, чем не матрица ?? Либо же одномерный массив.

[ROMA2PVT]

Либо же одномерный массив.

Матрица это матрица.А одномерный массив это одномерный массив.

[Profan4ik]

Матрица не массив??? разве есть отличия??
Матрица не бывает в 1 строку???

[ROMA2PVT]

в самом первом посту(твоём) у тебя одномерный массив но не матрица фигурирует.
А матрица в одну строку или столбец есть.

[Profan4ik]

)))) Просто как сложилось у меня впечатление, матрица и массив различия не имеют. Да мне нужен массив, не спорю.
Еще вопрос, почему то он пишет

Считает среднеарифметическое и нормально выводит(раз на раз не приходится) всё при 1 строке и 6 столбца и изменениях в программе

mas=array [1..6,0..1] of integer;