суммирование элементов массива Опции

[need love]

попытка №2. че-то совсем не получается(

помогите)) спасибо заранее^.^

Подсчитать сумму элементов в одномерном массиве из 15 элементов, которые определяются по формуле: A(I)=2∙I+10.

[Айра]

Можно сделать так, с массивом:

uses crt;
var a: array[1..15] of integer;
    sum,i: integer;
begin
  sum:=0;
  for i:=1 to 15 do
    begin
      a[i]:=2*i+10;
      sum:=sum+a[i];
      write(a[i]:4);
    end;
  writeln(' сумма:',sum,'');
end.

А можно и вообще без него обойтись, нам же количество элементов известно:

uses crt;
var sum,i: integer;
begin
  sum:=0;
  for i:=1 to 15 do
    sum:=sum+2*i+10;
  writeln('сумма: ',sum);
end.

Сообщение отредактировано: Айра - 17.06.2007 23:22