if n mod 2=0 then write('Четное')
else write('Не четное');
Решение находится во вложении
Ответ:
Многие защищают своих пользователей и гостей сайта по разному.Есть те которые просто тщательно проверяют сайт на наличие разный вирусов или неприятных гостей.А есть такие сайты где их создатели создали специальную защитную систему,которая сама чуть ли не каждый час может проверять сайт.Так же хорошей защитой пользователей сайта является тяжело написанный пароль который трудно взломать.Многие создатели рекомендуют и даже делают такие ограничения как:в пароле должно быть более 9 символов;в пароле рекомендуем использовать буквы вместе с цифрами чтобы вас было тяжело взломать.
Вот мой краткий реферат на тему:Как защищают разные сайты своих пользователей и гостей сайта.
Ответ:
Объяснение:
if mas[a]<=mas[min] then min:=a;
if mas[a]>=mas[max] then max:=a;
тут идет сравнение мас в номере ячейки А с массивом в номере ячейки min , если mas [ячейка а ] меньше mas[min] то их индексы меняется местами
if (a<>min)and(a<>max) then writeln (mas[a]);
Если индексы а не равен мин И индекс а не равен макс , то вывод на экран мас[а]
Const n=10;
var a:array[1..n] of integer;
i,s1,s2:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(51);
write(a[i]:4);
end;
writeln;
s1:=0; s2:=0;
for i:=1 to n do
if i mod 2 = 1 then s1:=s1+a[i] else s2:=s2+a[i];
writeln('s1 = ',s1,' s2 = ',s2);
end.
Пример:
Массив A:
21 46 43 5 40 32 26 34 29 48
s1 = 159 s2 = 165
Подробнее - на Znanija.com -
znanija.com/task/22500151#readmore