Задана последовательность N целых чисел

@ADAPTOR · Регистрация: 12.03.2010

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

(17) Задана последовательность N целых чисел. Вычислить сумму элементов массива порядковые номера которых совпадают со значением этого элемента.

@Puporev · 24.03.2010, 19:53

Pascal

var n,i,a,s:integer;
begin
write('n=');
readln(n);
writeln('Vvedite ',n,' chisel');
s:=0;
for i:=1 to n do
 begin
  readln(a);
  if a=i then s:=s+a;
 end;
write('S=',s);
readln
end.

@ADAPTOR 0 / 0 / 0 Регистрация: 12.03.2010 Сообщений: 27
		1
	Задана последовательность N целых чисел 24.03.2010, 19:47. Показов 14487. Ответов 1 Метки нет (Все метки) (17) Задана последовательность N целых чисел. Вычислить сумму элементов массива порядковые номера которых совпадают со значением этого элемента. 0

	24.03.2010, 19:53

Задана последовательность N целых чисел

Решение