8_8. дан массив. найти первый локальный минимум (локальный минимум – элемент, который меньше своих соседей). 8_9. дан массив а, получить массив в: а = {13, 7, 9 , 17 , 15 } --> в = {13, 7, 9 , 17 , 15 , 13, 7, 9 , 17 , 15 }

1) var a: array[1..100] of integer; i,n: integer;   begin   writeln('введите кол-во элементов массива');     readln(n);     writeln('массив: ');       for i: =1 to n do         begin           a[i]: = random(50)+1;           write(a[i],' ' );         end;         writeln;         if a[1]< a[2] then           begin             writeln('локальный минимум: ',a[1]);             exit;           end;       for i: =2 to n do         if (a[i]< a[i-1]) and (a[i]< a[i+1]) then           begin             writeln('локальный минимум: ',a[i]);             exit;           end;       writeln('локальный минимум: ',a[n]);             end. 2) var a: array[1..100] of integer; b: array[1..100] of integer; i,n,k: integer;   begin       writeln('введите кол-во элементов массива');     readln(n);     writeln('массив a: ');       for i: =1 to n do         begin           a[i]: = random(50)+1;           write(a[i],' ' );           b[i]: =a[i];         end;         writeln;         writeln('массив b: ');         for k: =1 to 2 do           for i: =1 to n do               write(b[i],' ');       end.

1) открыть чек 2) считать штрих код товара 3) получить данные по товару 4) вычислить стоимость товара и общую сумму 5) если есть еще товары, то к п2 6) вывести общую сумму покупки или вообще данные по чеку 7) получить данные оплаты (наличка или карточка, сколько налички) 8) если оплата наличкой, то вычислить разницу/здачу и вывести на экран 9) открыть кассиру доступ к наличным деньгам в кассе 10) распечатать чек 11) закрыть чек