1) Составить программу определяющую правильно ли введено число в двенадцатиперстной системе счисления. 2) Дан массив А (n, n). Найти произведение четных элементов массива.

1) program zz1;

var i, p:integer; / / задаем переменные целого типа

s:string;

begin

write (' введите число ');

read (s);

for i:=1 to length (s) do

if (s[i]'0') and (s[i]'1') and (s[i]'2') and (s[i]'3') and (s[i]'4') and

(s[i]'5') and (s[i]'6') and (s[i]'7') and (s[i]'8') and (s[i]'9') and

(s[i]'A') and (s[i]'B') then begin p:=1; break; end;

if p = 1 then write (' число записано неправильно ') else write (' число записано правильно ');

END.

2) program zz1;

const n = 4; / / задаем количество элементов в массиве

var i, j, p:integer; / / задаем переменные целого типа

b:array [1 ... n, 1 ... n] of integer;

begin

for i:=1 to n do

for j:=1 to n do / / получаем числа и записываем их в массив

b[i, j]:=random (10);

for i:=1 to n do / / выводим полученный массив на экран

begin

for j:=1 to n do

write (b[i, j]:4);

writeln;

end;

p:=1;

for i:=1 to n do

begin

for j:=1 to n do

if (b[i, j] mod 2 = 0) and (b[i, j]0) then p:=p * b[i, j]

end;

writeln (' произведение четных элементов = ', p); / /выводим ответ

end.