Трудная программа.

[fait218]

http://pixs.ru/showimage/Bezimyanni_3794511_1823566.jpg
не могу не как решить(

[GetMax]

А что тут сложного? Создаете массив А из 10 элементов, потом массив В из 20 элементов. И на основании этих массив задаете значения для массива С примерно таким образом

For i:=1 to 20 do
Begin
  For j:=1 to 10 do
  Begin
     C[i,j]:=A[j]/(1+Abs(B[i]));
     Write(C[i,j]:4:2)
  End;
  Writeln
End;

[Летучий_СкилетиК]

Сообщение от fait218

http://pixs.ru/showimage/Bezimyanni_3794511_1823566.jpg
не могу не как решить(

ну прям уж таки нереально сложная

uses crt;
var a:array[1..10] of real;
    b:array[1..20] of real;
    c:array[1..20,1..10] of real;
i, j:integer;
begin

for i:=1 to 10 do
read(a[i]);
for i:=1 to 20 do
read(b[i]);
for i:=1 to 20 do
for j:=1 to 10 do
    c[i,j]:=a[j]/(1+abs(b[i]));
for i:=1 to 20 do
begin
   for j:=1 to 10 do
   write(c[i,j]:4:2);
writeln;
end;
end.

[fait218]

Огромное спасибо)

[Serge_Bliznykov]

название темы не соответствует задаче.

ЗАКРЫТО.