Question

Даю максимум баллов за задание
Дан двумерный массив вещественных чисел.
Создать одномерный массив, содержащий произведение отрицательных элементов каждой строки.
Найти индекс минимального элемента.

Answer 1

var a: array[,] of real;
    b: array of real;
    i,j,ind,n,m: integer;
    p,s: real;
begin
  write('размерность массива:  n m  ');  readln(n,m);
  writeln('массив:');
  setlength(a,n+1,m+1);
  setlength(b,n+1);
  randomize;
  for i:=1 to n do
  begin
     p:=1; s:=0;
     for j:=1 to m do
     begin
       a[i,j]:=random(-50,50)/100;
       write(a[i,j]:6:2);
       if a[i,j]<0 then
       begin
         p:=p*a[i,j];
         s:=1;
       end;  
     end;  
     if s>0 then b[i]:=p
     else b[i]:=0;
     writeln;
  end;
  s:=b[1]; ind:=1;
  writeln('новый массив:');
  for i:=1 to n do 
  begin
    write(b[i]:8:4);
    if b[i]<s then
    begin
      ind:=i; s:=b[i];
    end;  
  end;
  writeln;
  writeln('индекс минимального элемента в новом массиве:  ',ind);
end.

размерность массива:  n m  4 3
массив:
 -0.04  0.21  0.14
  0.00 -0.38 -0.05
 -0.29  0.12  0.12
  0.15 -0.16  0.37
новый массив:
 -0.0400  0.0190 -0.2900 -0.1600
индекс минимального элемента в новом массиве:  3

Answer 2

А можно переделать так, что бы не рандомно вводились значения, а с клавиатуры

Answer 3

Можно, убираете 2 строки a[i,j]:=random(-50,50)/100;
write(a[i,j]:6:2); , вместо них записываете строку read(a[i,j);

Answer 4

Спасибо огромное!