Потенциально нежелательные программы - программы, которые не рекомендованы для запуска на вашем устройстве, т.к. могут навредить вашему компьютеру. Могут пострадать многие системные файлы, также может быть потеряна важная информация БЕЗ возможности восстановления и множество других нежелательных для вас действий.
Проще говоря - это программы-вирусы.
Чтобы избежать заражение компьютера подобными программами, рекомендуется установить специальные утилиты для защиты вашего ПК (антивирусы) от потенциально нежелательных программ.
{ задание 1} const n=17; var a:array[1..n] of integer; i,k:integer; begin Randomize; k:=0; for i:=1 to n do begin a[i]:=Random(99)+1; Write(a[i],' '); if a[i] mod 2=0 then k:=k+1 end; Writeln; Writeln('k=',k) end.
{ задание 2/3} const n=17; var a:array[1..n] of integer; i,s:integer; begin Randomize; s:=0; for i:=1 to n do begin a[i]:=Random(99)+1; Write(a[i],' '); if a[i] mod 10=2 then s:=s+a[i] end; Writeln; Writeln('s=',s) end.
var i, sum, num : integer;
var D: array [0..10] of integer;
begin
sum := 0;
for i:= 0 to 10 do begin
readln(num);
D[i] := num;
end;
for i := 0 to 10 do begin
if D[i] >= 0 then
sum := sum + D[i];
end;
writeln('Результат = ' + sum);
end.
Объяснение: