Question

Lucrare extemporală
Problemă: În tabelul A[n] sunt întroduși vârsta
locuitorilor din Hîrtopul Mare. Scrieți programul Pascal
care afișă vârsta medie a locuitorilor
b). Din problema precedentă afișați câți locuitori sunt
sub 15 ani​

Answer 1

Răspuns:

program p;

var a,b,i:Integer;

med:real;

varste:array[1..3]of Integer ;

begin

for i:= 1 to Length(varste) do

begin

readln(a);

varste[i]:=a;

b:=b+a;

end;

med:=b/Length(varste);

writeln(med);

end.