даны числа A и B Составьте алгоритм который заменит б нулем, если число b меньше а, в противном случае оставить b без изменения​

program z1;

var a:array [1..21] of integer;

i,m: integer;

begin;

write('0.');

for i:=1 to 21 do

begin

a[i]:=random(66)-13;

write(a[i]:5)

end;

writeln;

write('1.');

for i:=1 to 21 do

begin

if i mod 2 = 0 then a[i]:=-3*a[i];

write(a[i]:5)

end;

writeln;

write('2.');

for i:=1 to 21 do

begin

if a[i] < 10 then a[i]:=-a[i];

write(a[i]:5)

end;

writeln;

write('3.');

for i:=1 to 21 do

begin

if abs(a[i]) > 40 then a[i]:=a[i]-15;

write(a[i]:5)

end;

writeln;

m:=1;

for i:=1 to 21 do if a[m] < a[i] then m:=i;

a[m]:=m*m;

write('4.');

for i:=1 to 21 do write(a[i]:5)

end.

Объяснение:

После каждого преобразования выводится получившийся массив

20 человек

Объяснение:

Если всеми тремя языками владеют 3 человека, то

- Только Н и Ф (без А) одновременно владеют 5-3 = 2 человека

- Только А и Ф (без Н) одновременно владеют 10-3 = 7 человек

- Только А и Н (без Ф) одновременно владеют 8-3 = 5 человек

- Только А (без Н и Ф) владеют 28 - (3+5+7) = 13 человек

- Только Ф (без А и Н) владеют 42 - (2+3+7) = 30 человек

- Только Н (без Ф и А) владеют 30 - (2+3+5) = 20 человек

- Не владеет ни одним из языков 100 - (13+30+20+2+7+5+3) = 100 - 80 = 20 человек

ответ: 20 человек.