Const n=10;
var a:array[1..n] of integer;
max,min,i:integer;
begin
Randomize;
for i:=1 to n do begin
a[i]:=random(51);
write(a[i],' ');
end;
writeln;
max:=a[1];
min:=a[1];
for i:=1 to n do
begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
if i mod 2 = 1 then a[i]:=min else a[i]:=max;
end;
for i:=1 to n do write(a[i],' ');
writeln;
end.
Пример:
<span>31 35 3 5 26 46 9 31 30 11
31 35 3 35 3 46 3 46 3 46 </span>
Влить во 2 ведро (3л)
перелить в 1 (7л)
влить во 2 ведро (3л)
перелить в 1 (7л)
отметить 6 литров
Представление — чувственный образ объекта, в данный момент нами не воспринимаемого, но воспринятого ранее
На счет 3 пункта - не уверенна, но кажется не совсем
Ответ: 7
По условию если значение Ball[k] больше 3, то значение c увеличивается на 1.
Проверяем:
Ball[1] = 4 > 3 (да) c = 1
Ball[2] = 5 > 3 (да) c = 2
Ball[3] = 3 > 3 (нет) c = 2
Ball[4] = 4 > 3 (да) c = 3
Ball[5] = 2 > 3 (нет) c = 3
Ball[6] = 5 > 3 (да) c = 4
Ball[7] = 4 > 3 (да) c = 5
Ball[8] = 3 > 3 (нет) c = 5
Ball[9] = 4 > 3 (да) c = 6
Ball[10] = 5 > 3 (да) c = 7
Var x,y: real;
begin
read(x);
y:=(2*x)/(4-x);
writeln('y=',y);
end.
Вторая задача
var k,i,p:integer;
begin
p:=1;
read(k);
for i:=1 to k do
if i mod 2=1 then p:=p*i;
writeln( 'p=',p);
end.