Пропускная некоторого канала связи равна 128000 - вопрос №12800010418702 от Kostolom2005 10.06.2020 08:36

Question

Информатика: Пропускная некоторого канала связи равна 128000 бит/с. сколько времени займёт передача файла объемом 500 кбайт по этому каналу? а) 30сб) 32св) 4 минг) 240сзаписать ход решения​

Kostolom2005 · Answer

В разделе var нужно описать переменную max.

Program Runa;

const
n=5;
m=5;

var
A:array[1..n,1..m] of real;
i,j: integer;
max: real;
begin
writeln('матрица A(5x5)');
{Считываем матрицу с экрана}
for i:=1 to n do
    for j:=1 to m do
    begin
      write ('A[ ',i,',',j,' ] = ');
      readln (A[i,j]);
    end;
{Присваиваем минимальное значение максимуму}
max:=0;
for i:=1 to n do
    for j:=1 to m do
    {Если в матрице число больше максимума - присваиваем максимуму значение из матрицы}
    if (a[i,j]>max) then max:=a[i,j];

{Если максимум не 0 - значит в матрице есть положительные числа, выводим максимум}
if max>0 writeln ('max= ',max) else
    Writeln('Положительных элементов нет');
end.