<span><span>Пожалуйста, из русского издания "Алиса в стране чудес" Л.Кэррола:
"Вот дом,
Который построил жук.
А это певица,
Которая в темном чулане хранится
В доме,
Который построил жук.
А это веселая императрица,
Которая часто кусает певицу,
Которая в темном чулане хранится
В доме,
Который построил жук</span>
(перевод Д. Орловской)."</span>
В программе генерируются только убывающие последовательности (a[i]:=-i+random()+20;). Можно при желании массив вводить с клавиатуры.
const n=15;
var a:array[1..n] of real;
i:integer; b:boolean;
begin
Randomize;
for i:=1 to n do begin
a[i]:=-i+random()+20;
write(a[i]:5:2,' ');
end;
writeln;
b:=true;
for i:=1 to n-1 do
if a[i+1]>=a[i] then b:=false;
if b
then
begin
writeln('Последовательность убывающая');
writeln('p = ',a[n]*a[n div 2+1]:5:2);
end
else writeln('Последовательность не убывающая')
end.
Пример:
19.02 18.28 17.91 16.67 15.03 14.68 13.10 12.86 11.91 10.19 9.66 8.35 7.37 6.55 5.20
Последовательность убывающая
p = 66.86
{$APPTYPE CONSOLE}
Const
n = 13;
Type
Mass = array[1..n] of integer;
Procedure BbIBOD(Var A:Mass);
Var
i:integer;
Begin
For i:= 1 to n do
Write(' ',A[i])
End;
Function SWP(Var A:Mass; c:real):integer;
Var
i,j:integer;
Begin
For i:= 1 to n do
if (A[i] < 0)and(A[i] <= c) then j:=i;
if j <> 0 then
Begin
WriteLn('Искомый элемент: ',A[j],'[',j,']');
A[j]:=Sqr(A[j]);
i:=A[n-1];
A[n-1]:=A[j];
A[j]:=i;
Write('Новый массив:');
BbIBOD(A);
End
else Write('В массиве нет отрицательных элементов')
End;
Var
A:Mass;
i:integer;
c:real;
Begin
Randomize;
Write('Исходный массив(',n,'):');
For i:= 1 to n do
A[i]:=random(2*n+1)-n;
BbIBOD(A);
WriteLn;
Write('Введите число: ');
ReadLn(c);
SWP(A,c);
ReadLn
End.
Кнопка Ж делает текст жирным
Var x, n, m, f, s: integer;
begin
write('Введите N: '); readln(n);
write('Введите M: '); readln(m);
write('Введите F: '); readln(f);
for x := 1 to n do
if(x mod m = f) then s := s + sqr(x);
writeln('Сумма: ', s);
end.