Var a:array[1..100]of integer;
nol,chet,nechet,i,n:integer;
begin
readln(n);
for i:=1 to n do begin
readln(a[i]);
if (a[i] mod 2=0)and(a[i]<>0) then chet:=chet+1;
if (a[i] mod 2=1) then nechet:=nechet+1;
if a[i]=0 then nol:=nol+1;
end;
writeln('четных :',chet,' ','нечетных :',nechet,',' ',нулевых :',nol);
<span>end.</span>
Сначала нужно найти отношения размера файла за переданное время и приравнять для двух случаев. Скорость передачи не изменна, поэтому, размер файла зависит только от времени.
10Мб/130с=х/65с
х=650/130
х=5
Вычислим первую пустую ячейку 191-123=68
вычислим вторую пустую ячейку 348+21=369
вычислим третью пустую ячейку 308-210=98
итого можно записать содержащуюся информацию в виде
123+68=191
348+21=369
98+210=308
<span>program
HelloWorld;</span>
var run,
day: integer;
begin
<span> run := 10;</span>
<span> day := 1;</span>
<span> while run<20 do</span>
<span> begin</span>
<span> write('</span>День:');
<span> write(day);</span>
<span> write('</span>Километраж:');
<span> writeln(run);</span>
<span> day:= day +1;</span>
<span> run := run+2;</span>
<span> end;</span>
<span> write('</span>День:');
<span> write(day);</span>
<span> write('</span>Километраж:');
<span> writeln(run);</span>
end.
Const
n=5;
var
a:array[1..n,1..n]of integer;
i,j,k:integer;
begin
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(10);
write(a[i,j]:3);
end;
writeln;
end;
j:=n;
for i:=1 to n do
begin
if a[i,j]<5 then k:=k+1;
j:=j-1;
end;
writeln('Ответ: ',k);
<span>end. </span>