Решить средняя скорость передачи данных по некоторому каналу связи равна 30 кбит/с. определите, сколько понадобится секунд, чтобы передать поэтому каналу 80 страниц текста, каждая страница которого содержит в среднем 128 символов, а информационный вес одного символа равен 8 битам.

80*128*8=81920 бит - весь текст

в 1 кбит - 1000 бит

81920/1000=81,92 кбит-весь текст в кбит

81,92/30=2.7 секунды нужно

begin

   var (строк, столбцов) := ReadInteger2('Введи N и M:');

   Writeln('Введите элементы массива построчно');

   var массив := ReadMatrReal(строк, столбцов);

   массив.ElementsByRow.Min.Print

end.

===== Так писали наши деды =====

const

 nn = 50;

 mm = 50;

 

var

 i, j, n, m, min : integer;

 a: array[1..nn, 1..mm] of integer;

begin

 Write('Введи N и M: ');

 Read(n, m);

 Writeln('Введите элементы массива построчно');

 min := 32767;

 for i := 1 to n do

   for j := 1 to n do

   begin

     Read(a[i,j]);

     if a[i,j] < min then

       min := a[i,j]

   end;

 Write(min)

end.

ответ: Программа рабочая, проверена.

Program zadacha;

var  

 a: array [1..50] of integer; // размерность массива = 50

 i,k: integer;

begin

begin

 for i:=1 to 50 do

   a[i] := Random(100); // числа от 0 до 100 будут присутствовать в массиве

 writeln('Заполненный массив: ');

 for i:=1 to 50 do

   write(a[i],' '); end; // выводим массив на экран до проверки

writeln; //новая строка

writeln('Введите значение числа K: '); readln(k);

writeln('Элементы массива, кратные K:');

for i:=1 to 50 do

if (a[i] mod k = 0) then write(a[i],' ');  

end.

Объяснение:

i - порядковый номер элемента

a - сам массив

k - вводимое число

В остальном оставила комментарии.

Размерность массива и его диапазон указан в программе числами, т.к. в задаче не было во о вводе элементов или вводе размерности.