Предмет: Информатика, автор: alesio12

Заполнить массив NХM случайными числами из отрезка [1, Т]. Вывести k-ю строку массива (ПАСКАЛЬ)
помогите, очень прошу

Ответы

Автор ответа: BobbyFresnel
0

===== PascalABC.NET =====

begin

 var (n, m) := ReadInteger2('Введите n и m:');

 var t := ReadInteger('Укажите верхнюю границу (Т):');

 var a := MatrRandom(n, m, 1, t);

 var (k, p) := (t, 1);

 // определим количество цифр в t для форматного вывода

 while k > 0 do

 begin

   p += 1;

   k := k div 10;

 end;

 // вывод заполненной матрицы

 a.Println(p);

 Writeln;

 k := ReadInteger('Какую строку вывести?');

 if k.InRange(0, n - 1) then

   a.Row(k - 1).Println

 else

   Println('Нет строки с таим номером')

end.

Приложения:
Похожие вопросы