Дан массив .увеличить каждый элемент исходного массива на 5.

Program task; const n = 5; var a: array [1..n] of integer; i: integer; begin writeln('введите ', n, ' чисел через пробел'); for i : = 1 to n do read(a[i]); for i : = 1 to n do a[i] : = a[i] + 5; writeln('результат: '); for i : = 1 to n do write(a[i], ' '); readln; end.

// pascalabc.net 3.1, сборка 1230 от 27.04.2016 begin   var a: =arrrandom(readinteger('n=',20); a.println;   var k: =0;   for var i: =0 to a.length-1 do       if a[i]> 7 then begin a[i]: =7; inc(k) end;   a.println;   writeln('количество замен равно ',k);   // если нужно общее количество семерок, замените   // предыдущую строку следующей:   // writeln('количество семерок равно ',a.where(x-> x=7).count); end. тестовое решение n= 15 10 -11 14 12 -9 17 -4 11 -20 14 5 5 -3 -1 -2 7 -11 7 7 -9 7 -4 7 -20 7 5 5 -3 -1 -2 количество замен равно 6 // pascalabc.net 3.1, сборка 1230 от 27.04.2016 begin   var a: =arrrandom(20,-5,8); a.println;   var b: =a.where(x-> x< > 0).toarray; b.println;   writeln('количество нулей равно ',20-b.count); end. тестовое решение -4 0 -5 -1 7 3 6 7 7 0 5 -2 -5 -2 7 0 3 1 7 3 -4 -5 -1 7 3 6 7 7 5 -2 -5 -2 7 3 1 7 3 количество нулей равно 3