Код:
uses crt;
var a:array[1..10] of real;
b:array[1..20] of real;
c:array[1..10,1..20] of real;
i,j:integer;
begin clrscr;
writeln('Vvodi massiv a (10 elementov):');
for i:=1 to 10 do
read(a[i]);
writeln('Vvodi massiv b (20 elementov):');
for j:=1 to 20 do
read(b[i]);
for i:=1 to 10 do
for j:=1 to 20 do
c[i,j]:=a[i]/(1+abs(b[j]));
writeln ('Novaya matrica:');
for i:=1 to 10 do begin
for j:=1 to 20 do
write (c[i,j]:4:1);
writeln;
end;
end.
ну вот я набросал. надеюсь все правильно сделал и понял. если что, пишите