0=0₂, 0₈, 0₁₀,0₁₆
1=1₂, 1₈, 1₁₀, 1₁₆
2=10₂, 2₈, 2₁₀, 2₁₆
3=11₂, 3₈, 3₁₀, 3₁₆
Какие числа нужны?
А) Топ,Мим,Смех,Бон.
б) Выше
в) Топ и Мим
г) Не выше Бона все клоуны
Const n = 20;
var a: array[1..n] of real;
i: integer;
begin
for i := 1 to n do
read(a[i]);
for i := 1 to n do
if(i mod 3 <> 0) then write(a[i], ' ');
<span>end.
const n = 18;
var a: array[1..n] of integer;
i, max, fir: integer;
begin
max := 1;
fir := 0;
for i := 1 to n do
begin
read(a[i]);
if(fir = 0) and (a[i] > 0) then fir := i;
if(a [i] < 0) and (a[max] < a[i]) then max := i;
end;
i := a[max];
a[max] := a[fir];
a[fir] := i;
for i := 1 to n do
write(a[i], ' ');
<span>end.</span></span>
В..........................................................................