Меню

Обратная связь

Сейчас на сайте

•Сейчас• •59 гостей• •онлайн•

Авторизация



Назад...

Базовые алгоритмы (одномерные массивы)

 

1. Ввод N значений элементов массива

с клавиатуры

случайными числами из диапазона [-50;50]

read(n);

for i:=1 to n do

read(a[i]);

read(n);

for i:=1 to n do

a[i]:=random(101)-50;

 

2. Вывод значений элементов массива

в столбец

в строку через пробел

отрицательных элементов с четными индексами

for i:=1 to n do

writeln(a[i]);

for i:=1 to n do

write(a[i],' ');

writeln;

for i:=1 to n do

if (a[i]<0) and (i mod 2=0) then

writeln(a[i]);

 

3. Вычисление суммы значений

всех элементов массива

положительных элементов

элементов с четными индексами

s:=0;

for i:=1 to n do

s:=s+a[i];

s:=0;

for i:=1 to n do

if a[i]>0 then

s:=s+a[i];

s:=0;

for i:=1 to n do

if i mod 2=0 then

s:=s+a[i];

 

4. Подсчет количества

положительных элементов массива

элементов, больших или равных 60

элементов, не меньших за d

k:=0;

for i:=1 to n do

if a[i]>0 then

k:=k+1;

k:=0;

for i:=1 to n do

if a[i]>=60 then

k:=k+1;

k:=0;

for i:=1 to n do

if a[i]>=d then

k:=k+1;

 

5. Нахождение среднего арифметического

положительных элементов массива

двузначных целых элементов

k:=0;

s:=0;

for i:=1 to n do

if a[i]>0 then

begin

s:=s+a[i];

k:=k+1;

end;

sredn:=s/k;

k:=0;

s:=0;

for i:=1 to n do

if (a[i]>9) and (a[i]<100) then

begin

s:=s+a[i];

k:=k+1;

end;

sredn:=s/k;

 

6. Обмен значениями элементов массива

третьего и пятого элементов массива

i-того и j-того элементов массива

d:=a[5];

a[5]:=a[3];

a[3]:=d;

d:=a[i];

a[i]:=a[j];

a[j]:=d;

 

7. Удаление k-того элемента.

for i:=k to n-1 do

a[i]:=a[i+1];

n:=n-1;


8. Вставка k-того элемента.

for i:=n downto k do

a[i+1]:=a[i];

n:=n+1;

 

 

•Информация о профиле•

Application afterLoad: 0.001 seconds, 0.29 MB
Application afterInitialise: 0.016 seconds, 0.96 MB
Application afterRoute: 0.019 seconds, 1.20 MB
Application afterDispatch: 0.031 seconds, 1.87 MB
Application afterRender: 0.081 seconds, 2.21 MB

•Использование памяти•

2354608

•Зарегистрировано запросов: 22•

  1. SELECT *
      FROM jos_session
      WHERE session_id = '9q76qfbc90e8re61qio23caft2'
  2. DELETE
      FROM jos_session
      WHERE ( time < '1732179643' )
  3. SELECT *
      FROM jos_session
      WHERE session_id = '9q76qfbc90e8re61qio23caft2'
  4. INSERT INTO `jos_session` ( `session_id`,`time`,`username`,`gid`,`guest`,`client_id` )
      VALUES ( '9q76qfbc90e8re61qio23caft2','1732183243','','0','1','0' )
  5. SELECT *
      FROM jos_components
      WHERE parent = 0
  6. SELECT folder AS type, element AS name, params
      FROM jos_plugins
      WHERE published >= 1
      AND access <= 0
      ORDER BY ordering
  7. SELECT *
      FROM jos_migration_backlinks
      WHERE url LIKE '2015-01-05-23-14-32/2015-01-05-23-57-10/84.html%' OR sefurl LIKE '2015-01-05-23-14-32/2015-01-05-23-57-10/84.html%'
  8. SELECT template
      FROM jos_templates_menu
      WHERE client_id = 0
      AND (menuid = 0 OR menuid = 130)
      ORDER BY menuid DESC
      LIMIT 0, 1
  9. SELECT a.*, u.name AS author, u.usertype, cc.title AS category, s.title AS section, CASE WHEN CHAR_LENGTH(a.alias) THEN CONCAT_WS(":", a.id, a.alias) ELSE a.id END AS slug, CASE WHEN CHAR_LENGTH(cc.alias) THEN CONCAT_WS(":", cc.id, cc.alias) ELSE cc.id END AS catslug, g.name AS groups, s.published AS sec_pub, cc.published AS cat_pub, s.access AS sec_access, cc.access AS cat_access 
      FROM jos_content AS a
      LEFT JOIN jos_categories AS cc
      ON cc.id = a.catid
      LEFT JOIN jos_sections AS s
      ON s.id = cc.section
      AND s.scope = "content"
      LEFT JOIN jos_users AS u
      ON u.id = a.created_by
      LEFT JOIN jos_groups AS g
      ON a.access = g.id
      WHERE a.id = 84
      AND (  ( a.created_by = 0 )    OR  ( a.state = 1
      AND ( a.publish_up = '0000-00-00 00:00:00' OR a.publish_up <= '2024-11-21 10:00:43' )
      AND ( a.publish_down = '0000-00-00 00:00:00' OR a.publish_down >= '2024-11-21 10:00:43' )   )    OR  ( a.state = -1 )  )
  10. UPDATE jos_content
      SET hits = ( hits + 1 )
      WHERE id='84'
  11. SELECT id, title, module, position, content, showtitle, control, params
      FROM jos_modules AS m
      LEFT JOIN jos_modules_menu AS mm
      ON mm.moduleid = m.id
      WHERE m.published = 1
      AND m.access <= 0
      AND m.client_id = 0
      AND ( mm.menuid = 130 OR mm.menuid = 0 )
      ORDER BY position, ordering
  12. SELECT *
                           
      FROM jos_menu
                           
      WHERE menutype='mod_maximenu_CK'
      AND published=1
                           
      ORDER BY sublevel DESC,ordering
                            ;
  13. SELECT *
                           
      FROM jos_modules
                           
      WHERE published=1
                           
      ORDER BY id
                            ;
  14. SELECT *
                           
      FROM jos_menu
                           
      WHERE menutype='uth_proc'
      AND published=1
                           
      ORDER BY sublevel DESC,ordering
                            ;
  15. SELECT *
                           
      FROM jos_modules
                           
      WHERE published=1
                           
      ORDER BY id
                            ;
  16. SELECT *
                           
      FROM jos_menu
                           
      WHERE menutype='Olimp'
      AND published=1
                           
      ORDER BY sublevel DESC,ordering
                            ;
  17. SELECT *
                           
      FROM jos_modules
                           
      WHERE published=1
                           
      ORDER BY id
                            ;
  18. SELECT *
                           
      FROM jos_menu
                           
      WHERE menutype='obr_sv'
      AND published=1
                           
      ORDER BY sublevel DESC,ordering
                            ;
  19. SELECT *
                           
      FROM jos_modules
                           
      WHERE published=1
                           
      ORDER BY id
                            ;
  20. SELECT *
                           
      FROM jos_menu
                           
      WHERE menutype='raznoe'
      AND published=1
                           
      ORDER BY sublevel DESC,ordering
                            ;
  21. SELECT *
                           
      FROM jos_modules
                           
      WHERE published=1
                           
      ORDER BY id
                            ;
  22. SELECT guest, usertype, client_id
      FROM jos_session
      WHERE client_id = 0

•Языковые файлы загружены•

  • /var/www/user13295/data/www/ssa.lel-gimnazia.by/language/ru-RU/ru-RU.ini 1
  • /var/www/user13295/data/www/ssa.lel-gimnazia.by/language/ru-RU/ru-RU.plg_system_debug.ini 1
  • /var/www/user13295/data/www/ssa.lel-gimnazia.by/language/ru-RU/ru-RU.com_content.ini 1
  • /var/www/user13295/data/www/ssa.lel-gimnazia.by/language/ru-RU/ru-RU.plg_content_pagebreak.ini 1
  • /var/www/user13295/data/www/ssa.lel-gimnazia.by/language/ru-RU/ru-RU.tpl_MY_sh.ini
  • /var/www/user13295/data/www/ssa.lel-gimnazia.by/language/en-GB/en-GB.tpl_MY_sh.ini
  • /var/www/user13295/data/www/ssa.lel-gimnazia.by/language/ru-RU/ru-RU.mod_maximenu_CK.ini
  • /var/www/user13295/data/www/ssa.lel-gimnazia.by/language/en-GB/en-GB.mod_maximenu_CK.ini 1
  • /var/www/user13295/data/www/ssa.lel-gimnazia.by/language/ru-RU/ru-RU.mod_whosonline.ini 1
  • /var/www/user13295/data/www/ssa.lel-gimnazia.by/language/ru-RU/ru-RU.mod_login.ini 1
  • /var/www/user13295/data/www/ssa.lel-gimnazia.by/language/ru-RU/ru-RU.mod_breadcrumbs.ini 1

•Диагностика непереведённых строк•

•Нет•

•Дизайнер непереведённых строк•

•Нет•