Файл размером 2400 кбайт передается через некоторое соединение в течение 56 секунд. определите размер файла (в кбайт), который можно передать через его соединение за 14 секунд.
Const n=4; var a:array[1..n,1..n] of integer; b:array[1..n*n] of integer; i,j,k,max,imax,c:integer; begin Randomize; writeln('Исходный массив:'); for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=random(51)-25; write(a[i,j]:4); end; writeln; end; writeln('Полученный массив:'); k:=0; for i:=1 to n do for j:=1 to n do if a[i,j]>0 then begin k:=k+1; b[k]:=a[i,j]; write(b[k]:4); end; writeln; max:=b[1]; imax:=1; for i:=1 to k do if b[i]>max then begin max:=b[i]; imax:=i; end; writeln('max = b[',imax,'] = ',max); for i:=imax to k-1 do b[i]:=b[i+1]; b[k]:=0; writeln('Измененный массив:'); for i:=1 to k-1 do write(b[i]:4); writeln; c:=b[2]; b[2]:=b[k-1]; b[k-1]:=c; writeln('Измененный массив:'); for i:=1 to k-1 do write(b[i]:4); writeln; end.
Const n=15; var a:array[1..n] of integer; i,s:integer; sr:real; begin Randomize; writeln('Массив:'); for i:=1 to n do begin a[i]:=random(21); write(a[i]:3); end; writeln; s:=0; for i:=1 to n do s:=s+a[i]; sr:=s/n; writeln('Среднее арифметическое = ',sr:6:2); writeln('Номера элементов, больших среднего арифметического:'); for i:=1 to n do if a[i]>sr then write(i:3); writeln; end.
