Набрать 3 литровый баллон, перелить в 5 литровый,(там останется место для 2 литров), опять набрать 3 литровый баллон и перелить из него 2 литра в 5 литровый. (В 3 литровом баллоне останется 1 литр)
Var a:array [1..100] of integer;
s,i,k,n:integer;
sr:real;
begin
writeln('n=');
readln(n);
writeln('vvedite massiv=');
for i := 1 to n do
readln(a[i]);
s:=0;
k:=0;
for i := 1 to n do
begin
s:=s+a[i];
sr:=s/n;
end;
for i := 1 to n do
if a[i]>sr then inc(k);
writeln('sr=',sr,' k=',k);
readln;
<span>end.</span>
Ответ: криптография, я полагаю
B) output the contents of the curent directory.........
А) кара, б) кот в) парк, пара, фара, фура, мура г) ложа, кожа