Pascal - Konsolowe

Suma określonych liczb

Suma określonych liczb
Pascal - Konsolowe

Program: sumujący liczby wprowadzone przez użytkownika.

Użytkownik podaje ilość elementów do zsumowania, a następnie poszczególne ich wartości. 

Kompilator: Turbo Pascal

Galeria:

Program w akcji.

Kod programu:

program summa;
uses crt;
var n,i:integer;
    a,suma:real;
begin
     clrscr;
     suma:=0;
     write('Podaj liczbe elementów do sumy: ');
     readln(n);
     for i:=1 to n do
     begin
         write('Podaj liczbe: ');
         readln(a);
         suma:=suma+a;
         end;
         writeln('Suma=',suma:2:2);
         readln;
end.