Const n=кол-во элементов
var x:array[1..n] of integer;
i,s:integer;
begin
for i:=1 to n do
x[i]:=1+random(9); //заполняем массив числами от 1 до 9
for i:=1 to n do
s:=s+x[i];
writeln(s);
readln;
end.
В эталонной модели OSI различают семь уровней, но уровня приложений в нем нет. Есть прикладной уровень, может быть его назвали в вариантах ответов уровнем приложений? Так или иначе, протокол FTP является программой, которая работает на прикладном уровне, поэтому ближе всех подходит ответ 4)
var n,i,s,k:integer;
Begin
for i:=1 to 7 do Begin
read(n);
if n>0 then k:=k+1;
if n<0 then s:=s+n;
end;
writeln(k,s);
End.
Program gt;
var n,i,a:integer;
begin
read(N);
a:=n div 4;
for i:=1 to a do
begin
if((n-i*4)mod 2=0)then writeln((n-i*4),' лап гусей и ',i*4,' лап заёцев');
end;
<span>end.</span>
1)335
2)115,6
3)46
держииииии