Сформируйте массив a[i,j] с помощью датчика случайных чисел. Увеличить каждый элемент...

Question

Сформируйте массив a[i,j] с помощью датчика случайных чисел. Увеличить каждый элемент массива в 3 раза и если элемент массива отрицательный. массив выведите на экран в виде таблицы

Answer 1

"Увеличить каждый элемент массива в 3 раза и если элемент массива отрицательный."

Увеличить каждый элемент массива в 3 раза, если элемент массива отрицательный. Может так? Если так, то вот код.

 

var
l: Array[1..10,1..10] of Integer;
i,j,n,m: Integer;
begin
Writeln('Vvedite razmer matrisi: ');
Readln(n,m);
writeln('Isxodnaya matrisa:');
for i:=1 to n do
begin
for j:=1 to m do
begin
l[i,j]:=Random(51)-25;
Write(l[i,j]:4);
end;
writeln
end;
writeln('Izmenennaya matrisa:');
for i:=1 to n do
begin
for j:=1 to m do
begin
if l[i,j]<0 then l[i,j]:=l[i,j]*3;<br> write(l[i,j]:4);
end;
writeln
end;
end.