Составить программу, которая заполняет одномерный массив из 20 элементов случайными целыми числами от 1 до 99, а затем определяет, сколько в массиве имеется простых чисел (простым числом называется такое, которое делится только на единицу или само на себя). процесс определения того, является ли число простым, оформить в виде отдельной процедуры.

Procedure p(const a: integer; var p: integer); var     k: real;     d: integer; begin if a > 1 then     if (a = 2)or(a = 3) then p: =p+1     else           if a mod 2 < > 0 then                 begin                 k: =sqrt(a);                 d: =3;                 while (d< k)and(a mod d < > 0) do                       d: =d+2;                 if a mod d < > 0 then                       begin                       p: =p+1;                       write('(простое)')                       end                 end; end; const     n = 20; var     a: array[1..n] of integer;     i,k: integer; begin randomize; k: =0; write('исходный массив: '); for i: = 1 to n do       begin       a[i]: =random(99)+1;       write(' ',a[i]);       p(a[i],k);       end; writeln; writeln('кол-во простых чисел в массиве: ',k); end.

1)

выравнивание информации за счет расположения ее в ячейках таблицы. с таблиц текст можно представлять в виде колонок выравнивание названий и полей формы расположение на web-странице текста и графических изображений по разным колонкам использование вложенных таблиц различного фона для отдельных частей страницы

2)чтобы создать таблицу, используют команду таблица > вставить таблицу. в открывшемся диалоговом окне указывают размер таблицы (в ячейках), а также дополнительные параметры, реализуемые как атрибуты соответствующих тегов. чтобы занести информацию в таблицу, следует установить курсор в нужную ячейку и начать ввод. при работе с ячейками таблицы можно применять любые команды форматирования.