Am o problema. La informatica pe acasa s-a dat sa creem o programa in Turbo Pascal care sa socoata media aritmetica a 3 nr.intregi. Am fost absent lectia trecut cind ni sa predat tema si nu-s cum sa fac. ajutati-ma va rog. Va multumesc anticipat.

De ce nu ai luat lectia de la un/o coleg/a? Pe de alta parte, nu ai carti? Daca ai mai fost pe la ora respectiva ar trebui sa ai idee de ce trebuie sa faci, sau unde sa te uiti, si nu sa astepti sa-ti faca altii tema.
Cu ce te voi ajuta totusi, pentru ca nu tine de tema in sine, este sa iti spun ce este media aritmetica (cu toate ca poate stii asta): media se obtine adunand cele 3 numere si impartind totalul la 3. Spor la treaba.

Program nume;
Var a,b, c, ma:integer;
begin
Write('a='; readln)

Scuze, nu mai stiu bine comenzile, dar scrii sa ti se afisexe cele trei numere...

Iar apoi scrii:
ma:=(a+b+c)/3;

si apoi scrii comenzile de sfarsit.

Sper ca ai inteles, succes! Imi pare rau ca nu te pot ajuta mai mult. Daca crezi ca merit, funda!

Program p1;
var a, b, c, m : integer;
begin
writeln('a=');
readln(a);
writeln('b=');
readln(b);
writeln('c=');
readln(c);
m:=(a+b+c)/3;
writeln('Media=',m);
end.