matrix.pas

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

program Matrix;
{sa se citeasca elementele unui vector pana cand suma lor depaseste 100}
var
   s,i:integer;
   a:array[1..100] of integer;
begin
s:=0;
i:=1;
repeat
            begin
                 write('a[',i,']= ');
                 readln(a[i]);
                 s:=s+a[i];
                 i:=i+1;
            end;
until s>100;
writeln('s= ',s);
end.