Напишите на Паскале программу, которая запрашивает с клавиатуры массив из N…

Программа на Паскаль: var a: array[1… N] of integer; i,s,k,n: integer; beginreadln (n); for i: =1 to n do readln (a[i]); k: =0; s: =0; for i: =1 to n do begins: =s+a[i]; inc (k); end; writeln (s/k); end.