Const N = 50;
var a: array[1..N] of integer;
sum, i: integer;
begin
sum := 0;
a[ 1 ] := 1;
for i := 2 to N do begin
a[ i ] := a[ i - 1 ] + 4;
sum := a[ i ] + sum;
end;
for i := 1 to N do
writeln('A[ ', i, ' ]: ', a[ i ]);
writeln;
writeln('Сумма элементов массива: ', sum);
writeln('Значения 10, 20, 30, 40 элементов, стоящих в нечетных позициях: ' );
writeln('A[ 13 ] = ', A[13],', A[ 25 ] = ', A[25], ', A[ 37 ] = ', A[37], ', A[ 49 ] = ', A[49]);
<span>end.</span>
Var i,n,nmb: integer;
<span> dg,sm: real;
</span><span>begin
</span><span> sm:=0; nmb:=0;
</span><span> write('n = ');
</span><span> readln(n);
</span><span> write('числа через пробел: ');
</span><span> for i:=1 to n do
</span><span> begin
</span><span> read(dg);
</span><span> if dg<0 then</span><span>
</span> begin
<span> sm:=sm+dg;
</span><span> nmb:=nmb+1;
</span><span> end;
</span><span> end;
</span><span> writeln('сумма отрицательных чисел = ',sm);
</span><span> writeln('среднее арифметическое = ',sm/nmb);
</span><span>end.
</span>
Const n=10;
var a:array[1..n] of real;
i:integer;
b:boolean;
begin
Randomize;
for i:=1 to n do
begin
a[i]:=10*random;
write(a[i]:5:1);
end;
writeln;
b:=true;
for i:=1 to n-1 do
if a[i]>=a[i+1] then b:=false;
if b
then writeln('Последовательность возрастающая')
else writeln('Последовательность не возрастающая');
end.
Пример:
5.3 1.4 0.2 6.1 5.7 0.8 3.4 6.2 6.2 8.4
Последовательность не возрастающая
