Program test;
var i:integer;
beginfor i:=-5 to 5 do write(i,' ');
writeln;
for i:=5 downto -5 do write(i,' ');
<span>end.</span>
Var a:array[1..10] of integer;
i,m,k,p:integer;
begin
for i:=1 to 10 do begin
a[i]:=random(-10,10);
write(a[i]:3);
end;
writeln;
read(k,m);
for i:=k to (k+m) div 2 do begin
p:=a[i];
a[i]:=a[k+m-i];
a[k+m-i]:=p;
end;
for i:=1 to 10 do
write(a[i]:3);
<span>end.</span>
Var a,b,c:real;
begin
writeln('vvedite a');
readln(a);
writeln('vvedite b');
readln(b);
writeln('vvedite c');
readln(c);
if a>b then
if b>c then writeln('naimenshee=', c) else writeln('naimenshee=', b)
else if a>c then writeln('naimenshee=', c) else writeln('naimenshee=', a);
end.
Таблицей:
Маша Полина Валя
Галузина - + -
Юсупова + - -
Сидорова - - +
Объяснение:Маша не Галузина - ставим -, Валя в 8 классе а Галузина в 7 - значит Валя не Галузина, остаётся что Галузина - Полина, мама Вали домохозяйка, а мама Юсуповой работает в банке, значит Валя не Юсупова, значит Валя Сидорова, и остаётся что Маша Юсупова.