інформатика 7 клас. Задача. Ввести число. Якщо воно парне, розділити його на 4,якщо непарне-помножити на 3.​

Яне стану указывать эпитетов к своему коду, пусть он сам скажет за себя. алгоритм такой: просматриваем массив от конца к началу. и завершаем работу, как только встретим отрицательный элемент. а если так и не встретим до начала массива, значит таких элементов в массиве нет. const   n=20; { размер массива } var   a: array[1..n] of integer;   i: integer;   found: boolean; begin   randomize;   writeln('элементы массива');   for i: =1 to n do begin       a[i]: =random(21)-10; { случайное число на интервале [-10; 10] }       write(a[i]: 4)   end;   writeln;   { собственно }   i: =n;   repeat       found: =(a[i]< 0);       dec(i)   until (i=0) or found;   if found then writeln('номер элемента равен ',i+1)   else writeln('отрицательных элементов нет') end. тестовое решение: элементы массива   -3    5  -2    3    2  -2  -5    7    9  -3    1  -2  -1  -6    1  -6    2    8    7    1 номер элемента равен 16