Question

Free Pascal. 14 задание.

Answer 1

const m=4; k=5;
var 
x:array[1..m] of integer;
a:array[1..m,1..k] of real;
i,j:integer;
begin
Randomize;
writeln('Массив X:');
for i:=1 to m do
 begin 
 x[i]:=random(10); 
 write(x[i]:4);
 end;
writeln;
writeln('Массив A:');
for i:=1 to m do
 begin
 for j:=1 to k do
  begin 
  a[i,j]:=(abs(j-3)-1.3)*(2*x[i]+0.5);
  write(a[i,j]:7:2);
  end;
 writeln;
 end;
end.

Пример:
Массив X:
   8   6   5   3
Массив A:
  11.55  -4.95 -21.45  -4.95  11.55
   8.75  -3.75 -16.25  -3.75   8.75
   7.35  -3.15 -13.65  -3.15   7.35
   4.55  -1.95  -8.45  -1.95   4.55

Answer 2

Программа прикреплена в файле

f8f0283707cfc73f7266063cd58e0bf2.pas