Решение смотри во вложении.
Var a:array [1..100] of integer;
s,i,k,n:integer;
sr:real;
begin
writeln('n=');
readln(n);
writeln('vvedite massiv=');
for i := 1 to n do
readln(a[i]);
s:=0;
k:=0;
for i := 1 to n do
begin
s:=s+a[i];
sr:=s/n;
end;
for i := 1 to n do
if a[i]>sr then inc(k);
writeln('sr=',sr,' k=',k);
readln;
<span>end.</span>
Ответ:
program Test;
var
n, t: Integer;
b: Boolean;
begin
Write ('Введите трехзначное число: ');
ReadLn (n);
if (n >= 100) and (n <= 999) then begin
if (n mod 10) mod 2 = 0 then
WriteLn ('четная')
else
WriteLn ('не четная');
end else
WriteLn (n, ' - не трехзначное');
ReadLn;
end.
ПРИЗНАКИ ИНФОРМАЦИОННОГО ОБЩЕСТВА
Осознание обществом приоритетности информации перед другим продуктом деятельности человека.
Первоосновой всех направлений деятельности человека (экономической, производственной, политической, образовательной, научной, творческой, культурной и т.п.) является информация.
Информация же является продуктом деятельности современного человека.
Информация в чистом виде (сама по себе) является предметом купли – продажи.
Равные возможности в доступе к информации всех слоев населения.
Безопасность информационного общества, информации.
Защита интеллектуальной собственности.
Взаимодействие всех структур государства и государств между собой на основе ИКТ.
Управление информационным обществом со стороны государства, общественных организаций.
Кроме положительных моментов прогнозируются и опасные тенденции:
все большее влияние на общество средств массовой информации;
информационные технологиимогут разрушить частную жизнь людей и организаций;
существует проблема отбора качественной и достоверной информации;
многим людям будет трудно адаптироваться к среде информационного общества.
существует опасность разрыва между "информационной элитой" (людьми,
занимающимися разработкой информационных технологий) и потребителями.
1) Семь
2) Три
Решение могу записать в комментарии, если нужно