Var x,y,u:real;
function min(a,b:real):real;
begin
if a>b then min:=b else min:=a;
end;
begin
write('x=');read(x);
write('y=');read(y);
u:=min(x+y,x*y);
writeln(u);
<span>end.</span>
Const N=30;
var s,b:real;
c,i:integer;
A:array[1..N] of real;
begin
Randomize();
b:=0;
c:=0;
for i:=1 to N do
begin
A[i]:=random(500)+300;
b:=b+A[i];
end;
s:=b/N;
for i:=1 to N do if A[i]<s then c:=c+1;
Writeln('Средняя зарплата: ',s);
Write('Количество сотрудников,получающих зарплату ниже средней: ',c);
End.
а) несимметричные отношения
б)Симметричные
в) Симметричные
Int _tmain(int argc, _TCHAR* argv[])
{<span>
int s, rashod, ben;</span>
<span> printf("Расстояние до дачи (км): \n", s);</span><span>
printf("Расход бензина ( литров на 100 км пробега): \n", rashod);</span><span>
printf("Цена литра бензина (руб.): \n", ben);</span><span>
printf("Поездка на дачу и обратно обойдется в \n", (2*s/100)*rashod*ben);</span>
<span> return 0;
</span><span>}
s - расстояние
rashod - расход
ben - цена 1 литра</span>
Const
n = 12;
Var
i,max,smax,kmax:integer;
a:array[1..n] of integer;
Begin
randomize;
writeln('Исходный массив: ');
for i:= 1 to n do
begin
a[i]:=random(51)-25;
write(a[i]:4)
end;
writeln;
max:=a[1];
for i:= 2 to n do
if max<a[i] then max:=a[i];
writeln('max = ',max);
smax:=0;
kmax:=0;
for i:= 1 to n do
if a[i] = max then
begin
smax:=smax+max;
kmax:=kmax+1;
end;
WriteLn('kmax = ',kmax);
WriteLn('smax = ',smax);
End.
