не успеваююю решите задачи №1. Файл размером 1500 Кбайт передаётся через некоторое соединение - id1214231920210220 от bahakendjaev11 20.02.2021 22:38

Question

Информатика: не успеваююю решите задачи №1. Файл раз­ме­ром 1500 Кбайт пе­ре­даётся через не­ко­то­рое со­еди­не­ние в те­че­ние 75 се­кунд. Опре­де­ли­те раз­мер файла (в Кбайт), ко­то­рый можно пе­ре­дать через это со­еди­не­ние за 50 се­кунд. В от­ве­те ука­жи­те одно число — раз­мер файла в Кбайт. Еди­ни­цы из­ме­ре­ния пи­сать не нужно. №2. Файл раз­ме­ром 8 Мбайт пе­ре­даётся через не­ко­то­рое соеди­не­ние за 128 се­кунд. Опре­де­ли­те время в се­кун­дах, за кото­рое можно пе­ре­дать через то же самое

bahakendjaev11 · Accepted Answer

Если элементы массива идут по возрастанию, то вот так

program wstawka;
uses crt;
const min=1;
max=20;
type zona=min..max;
massiw=array[zona] of integer;
var mas:massiw;
i,j:zona;
a,N,M:integer;
T:boolean;
BEGIN randomize;
clrscr; N:=random(20);
writeln('4ucJlo N = ',N);
M:=random(20); Writeln('4ucJlo M = ',M);
for i:=min to max-2 do
begin
mas[i+1]:=mas[i]+random(5);
write(mas[i],' ');
end;
for i:=min to max-2 do
if (mas[i]>N) and (t=false) then
begin
t:=true;
a:=mas[i];
mas[i]:=N;
for j:=i+1 to max do
begin
N:=mas[j];
mas[j]:=a;
a:=N;
end;
end;
for i:=min to max-1 do
if (mas[i]>M) and (t=true) then
begin
t:=false;
a:=mas[i];
mas[i]:=M;
for j:=i+1 to max do
begin
M:=mas[j];
mas[j]:=a;
a:=M;
end;
end;
writeln;
for i:=min to max do
write(mas[i],' ');
readkey;
END.

MOGZ ответил