Дан массив а: array [1..30] of real. создать программу для нахождения среднего арифметического всех элементов массива. )

массив вводим с клавиатуры или иного устройства ввода.создание программы для нахождения среднего арифметического + вывод среднего арифметического на экран.i - цикловая переменнаяsra - среднее арифметическое всех элементов массиваs - сумма всех элементов массиваvar а: array [1..30] of real;   i: integer; sra,s: real; begins: =0; for i: =1 to 30 do beginreadln (a [ i ]); s: =s+a[i]; end; sra: =s/30; writeln (sra)end.

uses crt; var a: array [1..30] of real; i: integer; sr,s: real; begin  clrscr;   randomize;   s: =0;   for i: =1 to 30 do  begin    a[i]: =random(100)-50;     write(a[i],' ');     s: =s+a[i];   end;   sr: =s/30;   write('sr=',sr); end.

1)

var a: integer; beginreadln(a); if a mod 5=0 then writeln('yes') else writeln('no'); if a mod 10=0 then writeln('yes') else writeln('no'); end.