Вычислить сумму первых N чисел натурального ряда. С использованием операторов цикла For-To (или For-Downto), While-Do и Repeat-Until. Паскаль
Ответы
Ответ дал:
0
const
c=10;
var a:array[1..c] of integer;
n,i,s:integer;
begin
writeln('Введите элементы массива');
for i:=1 to c do
read(a[i]);
writeln('Введите количество первых N чисел');
read(n);
for i:=1 to n do
s:=s+a[i];
writeln('Сумма первых ', n, ' чисел массива = ', s);
end.
c=10;
var a:array[1..c] of integer;
n,i,s:integer;
begin
writeln('Введите элементы массива');
for i:=1 to c do
read(a[i]);
writeln('Введите количество первых N чисел');
read(n);
for i:=1 to n do
s:=s+a[i];
writeln('Сумма первых ', n, ' чисел массива = ', s);
end.
Похожие вопросы
2 года назад
2 года назад
7 лет назад
7 лет назад
9 лет назад
9 лет назад
10 лет назад