Var
a: array[1..10]of integer;
i, k, n: integer;
begin
Writeln('Исходный массив:');
Randomize;
for i := 1 to 10 do
begin
a[i] := Random(51) - 25;
Write(a[i], ' ');
end;
Writeln;
n := 0;
k := 0;
for i := 10 downto 1 do
if a[i] > 0 then
begin
k := k + 1;
if k = 2 then n := i;
end;
if k = 0 then
Writeln('В массиве нет положительных элементов!')
else
Writeln('Предпоследний положительный элемент: a[', n, '] = ', a[n]);
Readln;
end.
Ответ выводится в формате (номинал) х (кол-во)
Одна программа длинная, но простая, а другая - более сложная.
A=6 b=3 c=2
если a>c и b>c (так и есть)
то x:=2+6*2
Ответ - х=14
Может получиться 64 последовательности.
Всего 6 мест, на каждом месте может стоять 2 буквы.
Следовательно, 2 в 6 степени = 64.
Темнота
Потому что камера у планшета маленькая, а муха больше её