Дано целое число n и массив случайных чисел x[1..n]. все элементы массива , меньше двух, заменить нулями. кроме того, получить сумму и количество элементов , принадлежащих отрезку[3,7].

// pascalabc.net 3.1, сборка 1204 от 24.03.2016 begin   var a: =arrrandom(readinteger('n='),0,9);   a.println;   var k: =0;   var s: =0;   for var i: =0 to a.length-1 do begin       if a[i]< 2 then a[i]: =0;       if a[i] in [3..7] then begin           inc(k); s+=a[i]           end       end;   a.println;   writeln('сумма ',k,' элементов на интервале равна ',s) end. тестовое решение: n= 15 5 7 6 7 8 9 0 7 9 7 6 1 0 0 8 5 7 6 7 8 9 0 7 9 7 6 0 0 0 8 сумма 7 элементов на интервале равна 45

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.

 

 

var

  n,i,a: integer;

begin

  readln(n);

  for i: =1 to n do

  begin

  read(a);

  write(abs(a),' ');

end;

end.