Версия для печати темы

Автор: need love 18.06.2007 2:46

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

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

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

Автор: мисс_граффити 18.06.2007 2:50

пошли по второму кругу?
выкладывай свои попытки... что есть.

Автор: need love 18.06.2007 2:52

мне все равно к экзамену разбирать.

Автор: Айра 18.06.2007 3:18

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

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.

Автор: klem4 18.06.2007 10:32

Убираем 15 лишних операций сложения

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

Автор: мисс_граффити 18.06.2007 14:12

тогда уж убирай и лишние умножения...
кстати, сумма арифметической прогрессии:
S(n)=(2a1+d(n-1))*n/2
берем прогрессию 1,2,3,4...
наша по сравнению с ней больше в 2 раза
S=(2a1+d(n-1))*n
a1=1
d=1
n-1=14
ну и потом 150 прибавить

тогда задача будет состоять из 1 строчки:
S=(2*1+1*(15-1))*15+150

Добавлено через 51 сек.
естественно, умножения на 1 можно не писать