Скорость передачи данных через adsl-соединение равна 512000 бит/с через данные соединение файл размером 1500кб. определите время передачи файла в секундах
Program aaa; var A,B: array[1..4,1..4] of integer; i,j,x: byte;
begin randomize; //запускаем генератор случайных чисел
// формируем и одновременно выводим матрицу writeln ('Исходная матрица:'); for i:=1 to 4 do begin for j:=1 to 4 do begin A[i,j]:=random(-10,10); //рандомное значение ячейки матрицы write(A[i,j]:4) //вывод ячейки матрицы end; writeln; end;
//поворачиваем матрицу на 90 градусов for j:=1 to 4 do begin x:=0; for i:=4 downto 1 do begin x:=x+1; B[j,x]:=A[i,j] end end;
// выводим итоговую матрицу writeln; writeln ('Матрица, повернутая на 90 градусов:'); for i:=1 to 4 do begin for j:=1 to 4 do write(B[i,j]:4); writeln end
