Три в одном

[bwitcher]

Написать программу, которая вычисляет сумму первых 5-ти положительных целых.
Эту прогу нужно решить тремя разными вариантами.
Кто-нибудь поможет?

[_-Re@l-_]

Первый:

s:=1+2+3+4+5

Второй

s:=15

Третий:

for I:=1 to 5 do
s:=s+i;

Так?

[DRAgon™]

можно еще так

s[1]+s[2]+s[3]+s[4]+s[5];

[bwitcher]

_-Re@l-_, не знаю))) Наверное))) Но что-то я второй ваш код не догнал. Почему сразу присваивается значение суммы? В чем тогда суть проги?

[_-Re@l-_]

Почему сразу присваивается значение суммы?

А почему бы и нет?
Суть в том, что она сама, без посторонней помощи сможет вывести число 15.
И ещё можно так:

s:=30-15;

Или

s:=15-0;

[Niro]

сумму первых 5-ти положительных целых

Хм, помойму тут должен быть массив с заданными числами И согласно условию надо поставить проверку на положительность элемента.
А насчет трех вариантов, то мне кажется тут просто надо пройтись циклами:
for to do
repeat until
while do
вы массивы и указанные циклы проходили?

[bwitcher]

Сообщение от Niro

Хм, помойму тут должен быть массив с заданными числами И согласно условию надо поставить проверку на положительность элемента.
А насчет трех вариантов, то мне кажется тут просто надо пройтись циклами:
for to do
repeat until
while do
вы массивы и указанные циклы проходили?

Циклы проходили, да. Вот мне тоже кажется, что решать циклами надо Но я вот сам че-то не очень могу, поможете?

[Niro]

Проверяйте

for i:=1 to размерность массива do
if mas[i]>0 then begin k:=k+1; sum:=sum+mas[i]; end;
if k=5 then break;

repeat
if mas[i]>0 then begin k:=k+1; sum:=sum+mas[i]; end;
until k=5

while k<>5 do
begin
if mas[i]>0 then begin k:=k+1; sum:=sum+mas[i]; end;
end;

[bwitcher]

Сообщение от Niro

Проверяйте

for i:=1 to размерность массива do
if mas[i]>0 then begin k:=k+1; sum:=sum+mas[i]; end;
if k=5 then break;

repeat
if mas[i]>0 then begin k:=k+1; sum:=sum+mas[i]; end;
until k=5

while k<>5 do
begin
if mas[i]>0 then begin k:=k+1; sum:=sum+mas[i]; end;
end;

Спасибо большое за помощь! Вот только с массивами я ниче не понял, честно говоря...

[Niro]

А вы их - массивы проходили ? Если да - их наверное можно использовать, если нет - то препод удивится
для задания массива

const n=10;   { n - размерность массива, т.е. кол-во элементов в нем}
var mas: array [1..n] of integer;
begin
randomize;
for i:=1 to n do {заполняем массив случайными символами}
begin
 mas[i]:=random(15)-10;
 write(mas[i],' '); {выводим полученный элемент}
end;
end;