Помогите люди, завтра лаба!

[HaXaJI]

Помогите люди, завтра лаба!

ПАСКАЛЬ Даны действительные числа а1......а10 , b1......b20
Получить действительную матрицу [ C ij ] i=1....10 , j=1......20
Ci/j= aj/(1+|bi|)

 

[MrSTEP]

сейчас сделаем, не беспокойтесь

 

[MrSTEP]

Ci/j= aj/(1+|bi|)

вы сдесь не перепутали местами i и j? ведь если так, то у нас модет появится a[20], а это выходит за рамки массива a

 

[HaXaJI]

Да перепутал просто уже мозг кипит , там на оборот Ci/j=ai/(1+|bj|)

 

[MrSTEP]

во, так лучше. сейчас протестирую и принесу

 

[HaXaJI]

Хорошо

 

[MrSTEP]

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.

ну вот я набросал. надеюсь все правильно сделал и понял. если что, пишите

 

[HaXaJI]

Спасибо !!!