Сумма двух, а выводит сумму всех

@воробьев · Регистрация: 26.02.2014

Author24 — интернет-сервис помощи студентам

Даны целые числа N (> 2), A и B. Сформировать и вывести целочисленный массив размера N, первый элемент которого равен A, второй равен B, а каждый последующий элемент равен сумме ДВУХ предыдущих.

Нужна сумма двух, а выводит сумму всех...

Pascal

var
  M, S: array[1..10000] of integer;
  N, i, A, B: integer;
                  
begin 
  write(' N = '); 
  readln(N);
  writeln(' Введите начальные значения A и B: ');
  readln(A, B);
  m[1] := A; m[2] := B; //Первые два элемента массива.
  S[2] := A; //Начальная сумма.
  write(' ', A, ' ', B); //Первые два элемента массива.
  for i := 3 to N do
   begin
     m[i] := S[i - 1] + m[i - 1]; //i-й элемент массива.
     S[i] := m[i]; //сумма всех предыдущих элементов массива. 
     write(' ', m[i]) //выводим следующий элемент массива.
   end
end.

@Svager · 17.05.2014, 15:41

воробьев, как-то так..если понял

Pascal

uses crt;
const nmax=20;
var a:array[1..nmax] of integer;
    i,j,n:integer;
begin
 clrscr;
  repeat
   write('n=');
    readln(n);
  until n in [1..nmax];
  write('Ïåðâûé ýëåìåíò i=');
   readln(a[1]);
  write('Âòîðîé ýëåìåíò i=');
   readln(a[2]);
 for i:=3 to n do
   a[i]:=a[i-2]+a[i-1];
 writeln('Ìàññèâ :');
  for i:=1 to n do
   write(a[i]:4);
 readkey;
end.

@воробьев · 17.05.2014, 16:00 **[ТС]**

Svager, я полагала, в моей задаче нужн изменить несколько строк, а вы написали новую оо) спасибо

@воробьев 0 / 0 / 0 Регистрация: 26.02.2014 Сообщений: 67
	17.05.2014, 16:00 [ТС]	3
	Svager, я полагала, в моей задаче нужн изменить несколько строк, а вы написали новую оо) спасибо 0