Zrobić program w Turbo Pascal, który oblicza średnią tylko z liczb parzystych... Proszę o szybko odpowiedź..;)
jarek544
USES Crt; VAR x,n : integer; a:array[1..100] of integer; liczba:interger; BEGIN Clrscr; Write(' podaj z ile liczb chcesz wpisać'); readln(n); Writeln(' Napisz te liczby, po każdej wciśnij enter'); For x:=1 to n do If xmod2=0 then liczba:=x/n Writeln(średnia parzystych liczb = ',liczba); readln; End.
VAR
x,n : integer;
a:array[1..100] of integer;
liczba:interger;
BEGIN
Clrscr;
Write(' podaj z ile liczb chcesz wpisać');
readln(n);
Writeln(' Napisz te liczby, po każdej wciśnij enter');
For x:=1 to n do
If xmod2=0 then liczba:=x/n
Writeln(średnia parzystych liczb = ',liczba);
readln;
End.