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

@Dimondark · Регистрация: 19.07.2016

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

в Массиве целых чисел что складывается из 20 элементов,узнать сумму элементов,что стоят на первых местах и произведение элементов,которые стоят на непарных местах.Полученный результат записать в текстовый файл!

дайте решение данной программы пожалуйста

@shilko2013 · 20.07.2016, 12:15

Первые места и непарные места понятия растяжимые...

@Cyborg Drone · 20.07.2016, 14:31

Dimondark, неверный перевод с украинского языка, так? Первые = чётные, непарные = нечётные.

Не указано, как массив попадает в программу. Логично предположить, что, если результаты выводятся в текстовый файл, то и массив вводится из текстового файла.

Pascal

const m = 20;
var n: integer;
    p, s: extended;
    a: array [1..m] of integer;
    f: text;
begin
  assign(f, 'input.txt');
  reset(f);
  s := 0;
  p := 1;
  for n := 1 to m do
    begin
      read(f, a[n]);
      if odd(n)
        then p := p * a[n]
        else s := s + a[n]
    end;
  close(f);
  assign(f, 'output.txt');
  rewrite(f);
  writeln(f, 'Produst of elements with odd indexes = ', p:0:0);
  writeln(f, 'Sum of elements with even indexes = ', s:0:0);
  close(f)
end.

Текстовый файл input.txt, содержащий 20 целочисленных элементов массива, записанных через пробел, возможно, в несколько строк. Для исключения целочисленного переполнения, а также для исключения использования длинной арифметики, сумма и произведение аккумулируются в переменных стандартного типа с наибольшим количеством значащих разрядов. В программе нет проверок на неверное количество и неверный тип элементов. Так как в задании декларировано применение массива, данные из файла копируются в массив. Вообще говоря, массив для данной программы не требуется, вместо массива целых чисел можно использовать одну простую целочисленную переменную.

@Dimondark 0 / 0 / 0 Регистрация: 19.07.2016 Сообщений: 14
		1
	Вычислить сумму элементов массива, стоящих на четных местах и произведение элементов, стоящих на нечетных 20.07.2016, 12:09. Показов 4628. Ответов 2 Метки нет (Все метки) в Массиве целых чисел что складывается из 20 элементов,узнать сумму элементов,что стоят на первых местах и произведение элементов,которые стоят на непарных местах.Полученный результат записать в текстовый файл! дайте решение данной программы пожалуйста 0

@shilko2013 257 / 234 / 185 Регистрация: 02.04.2016 Сообщений: 898
	20.07.2016, 12:15	2
	Первые места и непарные места понятия растяжимые... 0

	20.07.2016, 14:31

Опции темы

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

Решение