usando vetor e procedimentos

Descrição

Esconder código-fonte

program media;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type vetor=array[1..3] of integer;
var v:vetor;
m:real;
procedure levetor(var v1:vetor);
var i:integer;
begin
  for i:=1 to 3 do begin
  write('digite',i,' ->');
  readln(v1[i]);
  end;
end;
  procedure calcmedia(v1:vetor; var media:real);
  var i:integer;
  begin
    media:=0;
    for i:=1 to 3 do
    media:=media+v1[i];
    media:=media/3;
    end;
   procedure mostramedia(media:real);
   begin
     writeln(media:2:2);
     end;
     begin//programa principal
     levetor(v);
     calcmedia(v,m);
     mostramedia(m);
     readln;
end.