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

var a,b: real;

begin 

  readln(a,b);

  if a*b< 0 then writeln(a*b*2) else writeln(a*b*1.5);

end.

Вматрице 42 элемента. заполним её случайными значениями в диапазоне от  x/2 до  2*y, тогда в среднем половина значений попадет в заданный диапазон. const   m=6;   n=7; var   a: array[1..m,1..n] of integer;   i,j,k,x,y,x1,y1,s: integer; begin   randomize;   write('введите через пробел x и y: '); read(x,y);   if y< x then begin s: =x; x: =y; y: =s end;   writeln('исходный массив');   if x< 0 then x1: =2*x else x1: =x div 2;   if y< 0 then y1: =y div 2 else y1: =2*y;   k: =y1-x1+1; s: =0;   for i : = 1 to m do   begin       for j : = 1 to n do       begin           a[i,j]: =random(k)+x1;           write(a[i,j]: 4);           if (a[i,j]> =x) and (a[i,j]< =y) then s: =s+a[i,j]       end;       writeln   end;   for j: =1 to n do a[1,j]: =s;   writeln('результирующая матрица');   for i : = 1 to m do   begin       for j : = 1 to n do write(a[i,j]: 4);       writeln   end end. тестовое решение: введите через пробел x и y: -5 10 исходный массив     0  11  -6  15  -8  -2  -6     9    0    6    1  11  -2  -1     2    9  13  -1    6    0    9     6    1  -5    8  -3    0  -5     8    4  -8    7  -6    6  11   18  -1  15  -8  -9  -9  20 результирующая матрица   62  62  62  62  62  62  62     9    0    6    1  11  -2  -1     2    9  13  -1    6    0    9     6    1  -5    8  -3    0  -5     8    4  -8    7  -6    6  11   18  -1  15  -8  -9  -9  20