1) var n,a,s,i:integer; begin write('n = '); readln(n); writeln('Введите ',n,' чисел:'); s:=0; for i:=1 to n do begin read(a); s:=s+a; end; writeln('s = ',s); end.
3) var n,a,s,i:integer; begin write('n = '); readln(n); writeln('Введите ',n,' чисел:'); s:=0; i:=0; while i<n do begin i:=i+1; read(a); s:=s+a; end; writeln('s = ',s); end.
Answers & Comments
Verified answer
1)var n,a,s,i:integer;
begin
write('n = ');
readln(n);
writeln('Введите ',n,' чисел:');
s:=0;
for i:=1 to n do
begin
read(a);
s:=s+a;
end;
writeln('s = ',s);
end.
2)var n,a,s,i:integer;
begin
write('n = ');
readln(n);
writeln('Введите ',n,' чисел:');
s:=0;
i:=0;
repeat
i:=i+1;
read(a);
s:=s+a;
until i=n;
writeln('s = ',s);
end.
3)
var n,a,s,i:integer;
begin
write('n = ');
readln(n);
writeln('Введите ',n,' чисел:');
s:=0;
i:=0;
while i<n do
begin
i:=i+1;
read(a);
s:=s+a;
end;
writeln('s = ',s);
end.
Пример:
n = 5
Введите 5 чисел:
8 2 9 6 4
s = 29