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.
Var st,sk:integer;
begin
readln(st);
if st>1000
then sk:=trunc(st*0.95)
else if st>500 then sk:=trunc(st*0.97)
else sk:=st;
writeln(sk);
end.
Пример:
3000
2850
Ответ:1.надо взять сундук который висит на дубу,
2.там будет заяц,убить зайца,
3.в зайце будет утка,убить её,
4.в утке яйцо,надо его разбить,
5.в яйце игла,смерть Кощея,
6.убить Кощея этой иглой
Объяснение: