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

@Lada-21093i · Регистрация: 27.01.2012

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

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

@Ev[G]eN · 10.02.2012, 19:14

Pascal

const
 Max_Value = 20;
type
 TArr = array[1..Max_Value] of integer;
var
 arr: TArr;
 i: integer;
 
procedure Count_Summa(arr: TArr);
var
 i, Count, Summa: integer;
begin
 Count:=0; Summa:=0;
  for i:=1 to Max_Value do
   if arr[i] = i then
    begin
     inc(Count);
     inc(Summa, arr[i]);
    end;
 writeln('Кол-во элементов,значение которых равны их индексам: ', Count);
 writeln('Их сумма: ', Summa);
end;
 
begin
 writeln('Массив: ');
  for i:=1 to Max_Value do
   read(arr[i]);
 Count_Summa(arr);
end.

@Lada-21093i 1 / 1 / 1 Регистрация: 27.01.2012 Сообщений: 17
		1
	Подпрограммы. Вычислить количество и сумму элементов, значения которых совпадают с порядковыми номерами. 10.02.2012, 15:44. Показов 1194. Ответов 1 Метки нет (Все метки) Задана последовательность чисел. Вычислить количество и сумму элементов, значения которых совпадают с их порядковыми номерами. Выполнить с помощью подпрограмм! 0

Опции темы

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

Решение