7. Дан фрагмент электронной таблицы. Определите значение в ячейке

program chislo;

var n,delit,count,ccount: integer; beginread(n); count: =0; ccount: =0; for delit: =1 to n doif n mod delit = 0 thenbegincount: =count+1; if (delit mod 2 = 0) then ccount: =ccount+1; end; writeln('делителей: ',count); writeln('четных делителей: ',ccount); end.

в одном килобайте 1024 байта а значит 2,5 кбайта=2,5*1024=2560 байтов,в одном байте 8 битов а значит 2560 байтов=2560*8=20480 битов.чтобы найти за сколько времени передастся данный файл надо весь его размер разделить на скорость с которой он передается: 20480/2560=8 минут.

type array100 = array [1..100] of integer; var x,y: array100; i,n,min,max: integer; begin  randomize;   n: =10;   for i: = 1 to n do begin      x[i]: =random(n*10)- 10*n div 2 ;       write(x[i]: 4);       if i mod 10=0 then writeln;   end;     min: =1;   max: =1;   for i: = 1 to n do begin      if x[i]< x[min] then min: =i;       if x[i]> x[max] then max: =i;   end;   i: =x[min];   x[min]: =x[max];   x[max]: =i;         writeln;   for i: = 1 to n do begin      write(x[i]: 4);       if i mod 10=0 then writeln;   end;   end.

так как сумм(а1: в3)=30 а в4=5

то 

a4=-11