Заполнить матрицу из 3 строк и 3 столбцов случайными числами

Question

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

Answer 1

64

jeks1989

15 марта 2023

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;

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: