Найти ошибки в программе и исправить. записать в тетрадь правильный код программы и пояснение, какую решает данная программа? program n; var a: array[1..100] of integer; n, min: integer; begin write (‘n=’); readln (n); for i: =1 to n do begin a[i]: = random(46)-20; writeln (a[i]); end; min: =a[1]; num: =0; for i: =1 to n do if a[i]< min then begin min: =a[i]; num: =i; end; writeln(‘ ‘,num); end.
Объяснение:
1. CMS – дремучий лес
Несмотря на обширный выбор расширений и плагинов, некоторые бизнес-задачи требуют индивидуальной разработки того или иного модуля под заказ. С этой точки зрения CMS существенно ограничивает вебмастера в творческой свободе.
2. Низкая безопасность сайта
Распространенность CMS во всем мире – это одновременно успех и уязвимость. Внутреннее устройство наиболее популярных систем изучено хакерами вдоль и поперек, что делает ваш сайт потенциальной жертвой очередного злоумышленника.
Конечно, ведущие компании-разработчики активно борются за безопасность и применяют контрмеры. Здесь и проявляется важное отличие между платными CMS и open source.
3. Однотипность сайтов
Сделать веб-сайт на CMS в точности таким, каким вы представляете в мечтах, будет довольно сложно. Да, разные системы имеют разную степень гибкости, но абсолютно каждой присуща некоторая «шаблонность», а также свои «детские болезни».
4. Медленная загрузка
CMS хранит все ресурсы отдельно, сопоставляя их на лету при обращении веб-клиента к определенной странице. Это означает медленную загрузку. К счастью, проблему можно несколько смягчить путем использования Content Network Distribution (CDN).
n=5;
Var
ar:array[1..n] of integer;
ar2:array[1..n] of integer;
i,k:integer;
function prost(a:integer):boolean;
var i:integer;
b:boolean;
begin
b:=true;
for i:=2 to a div 2 do
if a mod i=0 then
begin;
b:=false;
break;
end;
if a=1 then b:=false;
prost:=b;
end;
begin;
randomize;
k:=0;
for i:=1 to n do
begin;
ar[i]:=random(101);
write(ar[i]:4);
end;
writeln;
for i:=1 to n do
if prost(ar[i]) then
begin;
inc(k);
ar2[k]:=ar[i];
write(ar2[k]:4);
end;
end.