1) a x b = 1 при a=1 возможно (если b=1)
2) a x b = 1 при а=0 противоречиво, результат 0
3) a + b = 0 при a=1 противоречиво, результат 1
4) a + b = 1 при a=0 возможно (если b=1)
Может быть:
-Создание рисунка.
-Преобразование уже готового изображения.
-Возможность работы с отдельными частями изображения.
-Ввод текста в картинку.
-Нарисованное или отредактированное изображение при желании можно распечатать на принтере, не выходя из программы.
Program Mas;
Var a:array[1..100] of integer;
i, n: integer;
Begin randomize;
writeln('Введите размерность массива',n);
readln(n);
for i:=1 to n do
a[i]:=random(45)-1; readln;
for i:=1 to n do
begin if a[i]>15 then
write(' ',a[i]);
end;
readln;
End.