Напишите процедуры ввода и вывода элементов матрицы

@Ффееддоорр · Регистрация: 18.05.2010

Author24 — интернет-сервис помощи студентам

Напишите процедуры ввода и вывода элементов матрицы T размерностью MxN.

@WolfCF · 18.05.2010, 05:17

Pascal

Uses CRT;
var T:array [1..50,1..50] of byte; //объявляем матрицу
    n,m:byte;
//процедура ввода матрицы
procedure vvod(var m,n:byte);
var i,j:byte;
Begin
write('m= ');
readln(m);
write('n= ');
readln(n);
For i:=1 to m do
 begin
   for j:=1 to n do
    begin
       T[i,j]:=random(20); //ввод автоматический
     end;
 end;
end;
//процедура вывода матрицы
procedure Vyvod(m,n:byte);
var i,j:integer;
begin
for i:=1 to m do
  begin
    for j:=1 to n do
    write(T[i,j]:4);
    writeln;
  end;
end;
//основная программа
Begin
clrscr;
randomize;
vvod(m,n);
vyvod(m,n);
readln;
End.

@Ффееддоорр 0 / 0 / 0 Регистрация: 18.05.2010 Сообщений: 6
		1
	Напишите процедуры ввода и вывода элементов матрицы 18.05.2010, 03:01. Показов 15689. Ответов 1 Метки нет (Все метки) Напишите процедуры ввода и вывода элементов матрицы T размерностью MxN. 0

	18.05.2010, 05:17

Напишите процедуры ввода и вывода элементов матрицы

Решение