Дано целое число n больше 1, а также первый член а и разность d арифметической прогрессии сформировать и вывести массив размером n содержащих n первых членов данной прогрессии.

program xxx;

    var i, n : integer;

                a, d : real

                      s: array[1..20] of real;

begin

    write('введите n-');

    readln (n);

    write('введите а=');

    readln(a);

    write('введите d=');

    readln(d);

    s[1]: =a;

    for i: =2 to n do

        s[i]: =a+d;

    write('арифметическая прогрессия: ');  

    for i: =1 to n do

              write(s[i]);

end.

 

 

Const     n = 30; var     t: array[1..n] of integer;     i,k: integer; begin write('температура в течение месяца: '); k: =0; for i: = 1 to n do       begin       t[i]: =random(20)-15;       write(' ',t[i]);       if t[i] < 0 then k: =k+1;       end; writeln; writeln('количество дней, когда температура опускалась ниже нуля: ',k); end. пример работы программы: температура в течение месяца: -3 -5 -4 1 -11 -5 0 2 2 4 3 -6 -7 -4 -14 -11 -15 -14 -15 0 -7 -14 -13 -13 -12 -1 -3 -13 -15 -5 количество дней, когда температура опускалась ниже нуля: 23

Const     n = 10; var     a,b: array[1..n] of integer;     i,k: integer;     sr: real; begin write('исходный массив: '); for i: = 1 to n do       begin       a[i]: =random(2*n+1)-n;       write(' ',a[i]);       sr: =sr+a[i]       end; sr: =sr/n; writeln; writeln('среднее арифметическое: ',sr); k: =0; write('новый массив: '); for i: = 1 to n do       if a[i]> sr then             begin             k: =k+1;             b[k]: =a[i];             write(' ',b[k])             end; end.