Написать программу для Паскаля: дан массив n чисел. Найти сумму чисел больше…

program zadacha; uses crt; var b: array [1… n] of integer; s,a,i: integer; begin clrscr; s: =0; randomize; write ('Vvedite chislo a: '); readln (a); for i: =1 to 5 do begin b[ i ]: =random (201) -100; writeln (i,' element massiva a raven: ',b[ i ]); if (b[ i ]>a) then s: =s+b[ i ]; end; writeln ('Summa elementov massiva ravna: ',s); readln; end.