Двумерный целочисленный массив A(m, n) вводится с клавиатуры или генерируется случайными числами в пределах -20 до 20. Требуется: 1. Найти сумму четных элементов 2-й строки. Напечатать их.

2. Блок схему.(не обязательно)

program xxx;

  s : string;

  a : integer;

begin

    writeln('введите строку символов: '

    readln (s);

    a: = length(s);  

    if a mod 2= 0 then writeln ('четное') else writeln('не четное');

    readln;

end.

1.

program xxx;

var i, n : integer

begin

  writeln ('введите число n=');

  readln (n);

  writeln ('делители числа: ');

  for i: = 1 to n do

      if n mod i = 0 then writeln (i);

  readln

end.

1)

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

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

пусть [a,b] - область и a< =b

var

a,b,x: real;

begin

readln(a,b,x);

if (a< =x) and (x< =b) then

writeln('принадлежит')

else

writeln('не принадлежит');

end.