Масиви

 Знайти середнє арифметичне n чисел

uses crt;
var k,s:real;
    n,i:integer;
begin
 clrscr;
 writeln('Vvedite kst  chisel');
 readln(n);
  for i:=1 to n do
   begin
    writeln('Vvedit ',i,' chislo');
    readln(k);
    s:=s+k;
   end;
  writeln('Seredye arufmetushne=',s/n:5:2);
 readkey;
end.


Ну і розвязуємо дану задачу використовуючи масиви. Пам'ятаємо, що :

  Сумування для масива

s=0;
for i:=1 to n do s:=s+a[i];