определения суммы первых пяти ее членов. Вывести значение искомой
суммы и всех ее слагаемых.
Спустя 8 минут, 34 секунды (18.03.2011 - 21:08) Trianon написал(а):
write('Sum of 1, 3, 5, 7, 9 = ');
writeln(1+3+5+7+9);:D
Спустя 19 минут, 15 секунд (18.03.2011 - 21:27) Commander Keen написал(а):
program prg1;
uses
crt;
var
arf: array of integer;
cnt, i, sum: integer;
begin
writeln('Введите число элементов ');
while cnt < 5 do
begin
cls;
write('Размер массива не должен быть меньше 5: ');
readln(cnt);
end;
SetLength(arf, cnt);
for i := 0 to length(arf) - 1 do
begin
writeln('Введите элемент ', i);
readln(arf[i]);
end;
write('Слагаемые: ');
for i := 0 to 4 do
begin
sum := sum + arf[i];
write(arf[i], ' ');
end;
writeln('');
write('Сумма: ', sum);
readln;
end.