Вычислить сумму тех элементов последовательности, номера которых совпадают со значениями элементов последовательности

@Dimasik777 · Регистрация: 15.10.2009

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

Пожалуйста, помогите! Нифига не шарю в программировании. Тут такая задачка: "Дана последовательность из n вещественных чисел. Вычислить сумму тех элементов последовательности, номера которых совпадают со значениями элементов последовательности". Нужно написать программу на Паскале.

@S2dent · 16.10.2009, 01:05

Если правильно понял задание, то так:

Pascal

uses crt;
const Max=100;
var a:array[1..Max] of real;
    Sum:real;
    i,n:integer;
begin
  clrscr;
  repeat
    writeln('Введите количество членов последовательности ');
    readln(n);
  until n in[1..Max];
  for i:=1 to n do
    begin
      writeln('Введите элемент №',i);
      readln(a[i]);
    end;
  Sum:=0;
  for i:=1 to n do
    begin
      if a[i]=i then
        Sum:=Sum+a[i];
    end;
  writeln('Сумма равна ',Sum:2:2);
  readln;
end.

@Dimasik777 0 / 0 / 1 Регистрация: 15.10.2009 Сообщений: 44
		1
	Вычислить сумму тех элементов последовательности, номера которых совпадают со значениями элементов последовательности 15.10.2009, 19:11. Показов 1771. Ответов 1 Метки нет (Все метки) Пожалуйста, помогите! Нифига не шарю в программировании. Тут такая задачка: "Дана последовательность из n вещественных чисел. Вычислить сумму тех элементов последовательности, номера которых совпадают со значениями элементов последовательности". Нужно написать программу на Паскале. 0

	16.10.2009, 01:05

Вычислить сумму тех элементов последовательности, номера которых совпадают со значениями элементов последовательности

Решение