Задать вопрос Регистрация
Помочь другим

  • Заполнить матрицу 3х3 случайными числами из интервала [0..10] и вторую матрицу 3х3 из интервала [0..5],перемножить таблицы

Ответы 1

  • program dl9_Alina73;var a:array [1..3,1..3] of real;

    b:array [1..3,1..3] of real; 

    c:array [1..3,1..3] of real; 

    i,q:integer;

    begin

    Randomize; for i:=1 to 3 do begin

    for q:=1 to 3 do begin

    a[i,q]:=Random(10)

    end end; 

     for i:=1 to 3 do begin

    for q:=1 to 3 do begin

    b[i,q]:=Random(5);

    end end; 

     for i:=1 to 3 do begin

    writeln; 

    for q:=1 to 3 do begin

    c[i,q]:=a[i,q]*b[i,q];

    write (c[i,q]) 

     end end;

    readln

    end. 

     

     

     

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years