termen_l.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 22 行

program termen_lipsa;
{dandu-se un vector de nr. intregi (n elemente) cu elemente nr. de la 1 la
n+1, care nu se repeta; sa se gaseasca termenul care lipseste.}
var i,n,k:integer;
    a:array [1..100] of integer;
    s,d:real;
begin
writeln('nr. de termeni ai vectorului este: ');
readln(n);
for i:=1 to n do
        begin
             write('a[',i,']= ');
             readln(a[i]);
        end;
s:=(a[n]*(a[n]+1))/2;
k:=0;
for i:=1 to n do k:=k+a[i];
d:=s-k;
writeln(s:5:2);
writeln(k);
writeln('termenul lipsa este ',d:5:3);
end.