может быть, я тебя не так понял. значит max(y,x) означет что надо вычислить что больше 'x' или 'y'? соответственно и min.
var x,y,max,min: integer;
begin
writeln('введите x,y через пробел');
read(x,y);
if x-y> y then min: =y else min: =x-y;
{если х-у> y тогда переменной min присваеваем значение y, в другом случае min присваеваем значение x-y(если "=" тоже, потому что значения будут одинаковы)}
if min> x then max: =min else max: =x; {примерно также}
writeln(max);
end.
если что - пиши в личку.
удачи!
var a: array [1..20] of integer; i,s1,s2: integer;
begin
for i: =1 to 20 do begin
writeln('введите элемент ',i); read(a[i]);
if i mod 2=0 then s1: =s1+a[i] else
s2: =s2+a[i];
end;
writeln('среднее ариф. четных ',s1/20,'; а нечетных ',s2/20);
readln;
end.
ну как всегда: вопросы - в личку)
Поделитесь своими знаниями, ответьте на вопрос:
Вычислите сколько байтов занимает на св одна минута стереозаписи (частота дискретизации 44000 разрядность 16 битов) какова максимальная продолжительность стереозаписи на диске емкостью 700 мбайт
если объем диска равен 700 мб то максимум продолжительность может быть
формула нахождения объема все перевести в си и перемножить получим объем в битах => чтобы получить время надо объем разделить на произведение оставшегося(т.е. дискретизация и разрядность)
таким образом
700 мб =5872025600
t=5872025600/(44000*16)=5872025600/704000= примерно 2 часа,31 минутку)