Вычислить значение выражения

@t_panda · Регистрация: 11.12.2014

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

x[1..n], n=100

S=x1+2x2+x3+2x4+..+x99+2x100

Добавлено через 25 минут
Удалите тему

Спасибо!)

@Cyborg Drone · 03.01.2015, 22:55

Pascal

const n = 100;
var x: array [1..n] of integer;
    i, s: integer;
begin
  randomize;
  s := 0;
  writeln('Source array:');
  for i := 1 to n do
    begin
      x[i] := 99 - random(199);
      write(x[i]:4);
      s := s + x[i];
      if not odd(i) then s := s + x[i];
    end;
  write('S = ', s);
  readln
end.

Не по теме:

Сообщение от t_panda

Удалите тему

Темы по просьбам участников форума не удаляются. Смотрите правила форума, пункт 2.3.

@t_panda 8 / 8 / 2 Регистрация: 11.12.2014 Сообщений: 85
		1
	Вычислить значение выражения 18.12.2014, 10:00. Показов 1076. Ответов 1 Метки нет (Все метки) x[1..n], n=100 S=x1+2x2+x3+2x4+..+x99+2x100 Добавлено через 25 минут Удалите тему Спасибо!) 0

	03.01.2015, 22:55

Вычислить значение выражения

Решение