Question

Elaborează o funcţie care calculează:
a) media numerelor întregi i,j,k,m;
b) minimumul din numerele a,b,c,d;
c) numărul de vocale într-un şir de caractere

Answer 1

program a;
var me:real;
      i,j,k,m:integer;
     function media(i,j,k,m:integer):real;
       begin 
           me:=(i+j+k+m)/4;
           media:=me;
      end;
begin
     readln(i);
     readln(k);
     readln(j);
     readln(m);
     me:=media(i,k,j,m);
     writeln('media este ',me);
end.

program b;
  var a,b,c,d,e:integer;
     function minimumul (a,b,c,d:integer):integer;
      begin 
       e:=a;
       if b<e then e:=b;
       if c<e then e:=c;
       if d<e then e:=d;
       minimumul:=e
     end;
begin
  readln(a);
  readln(b);
  readln(c);
  readln(d);
  e:=minimumul(a,b,c,d);
  writeln('minimumul este ',e);
end.

program c;
  var s:string;
        n:inetger;
     function vocale (s:string):integer;
       var i:integer;
       begin 
         for i:=1 to length(s) do
           if s[i] in ['i','o','u','y','e','a'] then n:=n+1;
        vocale:=n;
     end;
begin
  readln(s);
  n:=vocale
  writeln('numarul de vocale este ',n);
end.