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 человек.
Типы файлов определяются по расширению файла (последние буквы в имени файла после точки, обычно их три, но может быть больше или меньше). Операционная система компьютера определяет, какое приложение должно быть запущено для обработки данного файла, именно по его расширению.
прогуглила :}