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

  • заполнить матрицу из 3 строк и 3 столбцов случайными числами. каждому элементу строки добавляем ее номер строки (к элементам первой строки +1, во второй +2, и к третьей +3) и вывести на экран. пожжжалуйста

Ответы 1

  •  

    Program Matrix; 

    Uses Crt;type matrix=array[1..3,1..3] of real;var m:matrix;

     

    procedure PrintMatrix(mas:matrix);var j,k:integer;begin     for k:=1 to 3 do           begin               for j:=1 to 3 do                     begin                         write(mas[k,j]:7:2);                      end;                writeln;         end;end;

     

     

    procedure Auto;var i,j:integer;begin     randomize;     for i:=1 to 3 do           begin               for j:=1 to 3 do                     begin                       m[i,j]:=25+random(21)+i;                      end;           end;end; 

     

    begin 

         clrscr; 

         Auto;

         PrintMatrix(m);

         readkey;

    end;

     

     

     

    • Автор:

      talia
    • 6 лет назад
    • 0

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

Еще вопросы

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

Войти через Google

 или

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

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

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