с несколькими заданиями по основам алгоритмизации. Заранее благодарю за Создать числовой массив A[1..N].
Вычислить произведение всех элементов, значения которых лежат в интервале [1,10]. Выдать на экран количество этих элементов и их произведение.Нужна блок-схема алгоритма решения задачи и листинг программного модуля.
2.Ввести двумерный массив Е[10,10]. Вычислить сумму элементов лежащих на побочной диагонали матрицы и отобразить ее на экране.Так же нужна блок-схема алгоритма решения задачи и листинг программного модуля.
3.Ввести строку символов. Подсчитать количество символов в строке больше символа «К» и вывести на экран.Блок-схема алгоритма,листинг программы.
Var a,b,c:integer;begina:=-15;b:=-a;
c:=b mod 2;Writeln('c=',c);end.
в программе выводится остаток деления числа b на число c
но если тебе нужно оставить действие a:=a*2+1 тогда ты должен добавить ещё одну переменную и в таком случае b будет равнять не -а, а минус эта самая переменная. я обозначила эту переменную n, вот что получается
Var a,b,c,n:integer;begina:=-15;n:=-a*2+1;b:=-n;c:=n mod 2;Writeln('c=',c);end.