//Pascal ABC.NET 3.1 сборка 1256
Const
n=10;
Var
ar:array[1..n] of integer;
i,k,min:integer;
begin
min:=integer.MaxValue;
writeln('Array:');
for i:=1 to n do
begin
readln(ar[i]);
if ar[i]<min then min:=ar[i];
end;
for i:=1 to n do
if ar[i]-5=min then inc(k);
writeln(k);
end.
Ответ: размер файла 26,25 Мбайт
Объяснение:
512 Кбит = 512 / 8 = 64 Кбайт
7 мин = 7 * 60 = 420 сек.
64 Кбайт * 420 сек = 26880 Кбайт
26880 Кбайт = 26880 / 1024 = 26,25 Мбайт
В интернете пишешь определение и открываешь самый первый сайт и читаешь определение если не уверен зайди ещё на пару сайтов и убедись что всё верно например я ввожу слово в интернет Щит определение и выходит определение понятно??????????????