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 человек.
В приложениях находятся два варианта решения.
1) Перебираем все числа от 1 до x и проверяем остаток от деления x на очередное число. Простой и понятный алгоритм.
2) Перебираем все числа от 1 до корня из x и проверяем остаток от деления. Если x делится на такое число d без остатка, мы выводим d и x/d. Работает быстрее, чем (1).