Forum 1 semestru informatyki w SP ZSTI

T_O_M_1983

Siemka, potrzebuje napisany programik w Pascalu, a mianowicie takie:

...wprowadź z klawiatury ''n'' liczb, obliczyć ich sumę i średnią.
To było podobno na zajęciach. Prosze umieszczenie na forum jak ktoś to ma i z góry bardzo dziękuję Wink

Czak Noris · Gość

program sumasrednia;
{Czak Noris}
uses crt;
var
tab: array[1..50] of integer;
n,i,suma: integer;
srednia: real;

begin;
clrscr;
writeln('Podaj ilosc liczb do obliczenia sumy i sredniej - max 50:');
readln(n);
for i:=1 to n do
begin
writeln('Podaj liczbe nr ',i,':');
readln(tab[i]);
end;
suma:=0;
for i:=1 to n do
suma:=suma+tab[i];

writeln('Suma wpisanych liczb wynosi: ',suma);
srednia:=(suma/n);
writeln('Srednia wynosi: ',srednia:18:2);
repeat until keypressed;
end.