ZADANIE3

program zadanie3; var t:text; meno,k,f:string; i,s,vaha,vyska,x,y:integer; p,q:real; begin assign(t,'C:\Users\Jakub\Desktop\Maturita_inf\zadanie1_subor.txt'); rewrite(t); writeln('Pre dalsieho klikni y, pre koniec n'); while f<>'n' do begin i:=i+1; writeln('Zadaj meno'); readln(meno); writeln(t,meno); writeln('Zadaj vahu'); readln(vaha); writeln(t,vaha); writeln('Zadaj vysku'); readln(vyska); writeln(t,vyska); x:=x+vaha; y:=y+vyska; s:=vyska-100; if s<vaha then writeln('ma nadvahu'); writeln('Pre dalsieho klikni y, pre koniec n'); readln(f); end; p:=x/i; q:=y/i; close(t); writeln('Bolo spracovanych ',i,' ziakov, ich priemerna vaha je ',p:4:1,' a priemrna vyska je ',q:4:1); readln; end.