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

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

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

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

Совершенно не понял как работать с массивами, помогите если не сложно.

@AlexKolc · 17.06.2014, 19:53

Pascal

const q = 100;
var
  x: array[1..q] of longint; //Объявление массива. Макс. размерностью 100
  n, i, sum: longint;
  
begin
  randomize;
  readln(n); //Определяем размер массива
  sum := 0;
  writeln('Исходный массив: ');
  for i := 1 to n do
    begin
      x[i] := random(15); //Заполняем его случайными числами от 0 до 14
      sum := sum + x[i];
      write(x[i], ' ')
    end;
  writeln;
  writeln('Сумма элементов исходного массива = ', sum);
  writeln('Новый массив: ');
  for i := 1 to n do
    write(sqr(x[i]),' ') //Возводим каждый элемент в квадрат
end.

@Voenstal · 17.06.2014, 19:58 **[ТС]**

Огромное спасибо.

@AlexKolc · 17.06.2014, 20:00

Не за что =)

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

@Voenstal 0 / 0 / 0 Регистрация: 17.06.2014 Сообщений: 8
	17.06.2014, 19:58 [ТС]	3
	Огромное спасибо. 0

@AlexKolc 191 / 161 / 116 Регистрация: 14.09.2013 Сообщений: 302
	17.06.2014, 20:00	4
	Не за что =) 0

Опции темы

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

Решение