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.
Аудиокарта или звуковая плата.
если впереди и справа стена, закрасить клетку, повернуть влево и двигаться вперед.
если справа нет стены, повернуть направо и двигаться вперед.
<u>PascalABC.NET 3.4.0, сборка 1675 от 12.06.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=5;
Writeln('*** Исходный массив ***');
var a:=MatrRandom(n,n,-30,99);
a.Println(4); Writeln(4*n*'-');
a.Transform(t->t<7?t*t:t);
Writeln('*** Полученный массив ***'); a.Println(4)
end.