Определить сумму элементов массива X[n] с четными номерами

@Voenstal · Регистрация: 17.06.2014

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

Определить сумму элементов случайного массива X[n] с четными номерами. Вывести массив и полученную сумму. Возвести в квадрат все элементы исходного массива X[n] и получить новые значения. Вывести полученный массив. Количество элементов задать самостоятельно.

@rjxxx · 17.06.2014, 19:57

Pascal

const n = 10;
var
i,summ:integer;
X:array[1..n] of integer;
 
begin
  for i:=1 to n do
  begin
    X[i]:=random(100);
    if (i mod 2)=0 then summ:=summ+X[i];
    write(X[i],' ');
  end;
  writeln;
  writeln('Сумма = ',summ);
  writeln;
  
  for i:=1 to n do
  begin
    X[i]:=sqr(X[i]);
    if (i mod 2)=0 then summ:=summ+X[i];
    write(X[i],' ');
  end;
  writeln;
  writeln('Сумма = ',summ);;
  readln;
end.

@Sergio Leone · 17.06.2014, 20:42

summ нужно обнулять перед использоанием.

@Voenstal 0 / 0 / 0 Регистрация: 17.06.2014 Сообщений: 8
		1
	Определить сумму элементов массива X[n] с четными номерами 17.06.2014, 19:42. Показов 1209. Ответов 2 Метки нет (Все метки) Определить сумму элементов случайного массива X[n] с четными номерами. Вывести массив и полученную сумму. Возвести в квадрат все элементы исходного массива X[n] и получить новые значения. Вывести полученный массив. Количество элементов задать самостоятельно. 0

@Sergio Leone 2509 / 1130 / 582 Регистрация: 07.06.2014 Сообщений: 3,286
	17.06.2014, 20:42	3
	summ нужно обнулять перед использоанием. 0

Опции темы

Определить сумму элементов массива X[n] с четными номерами

Решение