Photomath вот это приложение
<span>Глобальная сеть Интернет - способ организации межкультурного общения. Психологические особенности Интернет-коммуникации, интернет-этикет. Процессы развития глобальных информационно-коммуникационных технологий в настоящее время. Риски виртуального общения</span>
Тнемукод в йыннерденв кувз ьташулсорп как
№6
program m;
var
a, max, pupils, i: integer;
ifNoanswer: boolean;
begin
ifNoanswer:=false;
a:=0;
№7 в комментах как только напишу
max:=0;
readln(pupils);
for i:=1 to pupils do
begin
readln(a);
if a>max then
max:=a
else if a=0 then
ifNoanswer:=true;
end;
writeln(max);
if ifNoanswer=false then
writeln('NO')
else
writeln('YES');
end.
Смотря какую.У меня друг делал презинтацию на конкурс совёно он распрашивал всех на каком море кому нравиться потом сделал анкету типо :
на красном море допустим 45%
на чёрном море 15%
ну и т.д.