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

Метро жер астында орналаскан.онын пайдасы оте коп. керек дерине тез арада жеткизип салады. ари колайлы.метро маган катты унайды.метроны ойлап тапкан коп рахмет.

лучший способ решать подобного рода: это начертить две пересекающиеся окружности, в данном случае это и ., вся эта штука - 6700, их пересечение - 2100, а только кружок - 4300.

чтобы найти ненайденную фигню надо из всего 6700 вычесть 4300 = 2400, а теперь надо весь кружочек , поэтому добавляем к нему 2100 = 4500, это достаточно простое из егэ=))

программу написала в паскале, надеюсь подходит))

program 1; var a: array[1..10] of integer; i,q,max,min,l,k: integer; begin randomize; for i: =1 to 10 do begin a[i]: =random(100); write(a[i]: 3); end; writeln; for i: =1 to 10 do if (a[i]> q) and (a[i]< l) then inc(k); writeln('k=',k); end.

2. 

program 2; var a: array[1..10] of integer; i,max,min,k,l: integer; begin  randomize; for i: =1 to 10 do begin a[i]: =random(100); write(a[i]: 3); end; writeln; max: =a[1]; min: =a[1]; for i: =2 to 10 do begin if a[i]> max then begin  max: =a[i];   k: =i;   end; if a[i]< min then begin  min: =a[i];   l: =i;   end; end; writeln('max=',max,', его индекс=',k,', min=',min,', его индекс=',l); end.

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.