Файл размером 15 Кбайт передаётся через некоторое соединение 21 секунду. Сколько секунд будет передаваться через это же соединение файл размером 5120 байт?В ответе укажите одно число – размер файла в Кбайт. Единицы измерения писать не нужно.

7

Объяснение:

21×5/15=7

Program matr;
uses crt;
const m=(число); n=(число);
var
a:array[1..m,1..n] of integer;
i, j:integer; max:real; k:boolean;

function prost(x:integer):boolean;
begin
prost:=false;
if x>0 then
if (x=1) or (x=2) then prost:=true else
for i:=2 to x-1 do
if mod(x, i) =0 then prost:=true;
end;

begin clr scr;

for i:=1 to m do begin
for j:=1 to n do begin
write(' a[i,j] = '); read(a[i, j]) end;
writeln
end;

max:=abs a[1,1];
k:=false;
for i:=1 to m do
for j:=1 to n do begin
if abs(a[i, j]) > abs(max) then max:= a[i, j];
if prost(a[i, j]) then k:=true
end;
writeln('Максимальный по модулю элемент равен ', max);
if k then wrteln('Матрица содержит хотя бы один простой элемент') else writeln('Матрица не содержит простых элементов');
readln
end.

1)
var e:array[1..11]of integer;
     i,k:integer;
begin
 for i:=1 to 11 do
  begin
   e[i]:=random(17)-15;
   write(e[i],' ');
   if e[i] mod 5=0 then k:=k+1;
  end;
 writeln;
 write('kol-vo elem krat 5:',k);
end.
2)
var e:array[1..8]of integer;
     i,s,k:integer;
begin
 for i:=1 to 8 do
  begin
   e[i]:=random(20)+1;
   write(e[i],' ');
   if e[i] mod 2=1 then s:=s+e[i];
   if e[i] mod 3=0 then k:=k+1;
  end;
 writeln;
 writeln('summa nechet elem:',s,' kol-vo elem krat trem:',k);
end.
3)
var e:array[1..14]of integer;
     i:integer;
begin
 write('nachalni massiv:');
 for i:=1 to 14 do 
  begin
   e[i]:=random(21)-10;
   write(e[i],' ');
  end;
 writeln;
 write('izmeneni massiv:');
 for i:=1 to 14 do
  begin
   if e[i]<0 then e[i]:=0
               else e[i]:=e[i]*(-1);
  write(e[i],' ');
 end;
end.