Question

Napisz w pasca-lu krótki program o treści :
1.napisz program rozwiązujący dany problem:
c)Dane sa średnie oceny n studentów. Zakładając ze cena wyzsza niz 3.5 upowaznia do otrzymania stypendium naukowego wyznaczyć procentowy udział stypendystów w grupie.Dane sa średnie oceny n studentów. Zakładając ze cena wyzsza niz 3.5 upowaznia do otrzymania stypendium naukowego wyznaczyć procentowy udział stypendystów w grupie.

Answer 1

Program Stypendia;
uses CRT;
var      i : integer;      ilu : Integer;      srednia : Double;      stypendystow : integer;
BEGIN
Writeln('Dla jakiej grupy studentow liczyc sredni udzial stypendystow?');readln(ilu);
for i := 1 to ilu do begin
 write('Podaj srednia ocen: '); readln(srednia); if srednia > 3.5 then inc(stypendystow); clrscr;end;
        write('Wsrod ',ilu,' studentow ',round(stypendystow/ilu*100),' % to stypendysci.');      readln;

end.