В однородном массиве найти сумму элементов, удовлетворяющих условию

@ogrrrrrrr · Регистрация: 14.09.2014

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

Помогите решить.
В однородном массиве Х(15)найти: сумму элементов, удовлетворяющих условию Название: условие.jpg
Просмотров: 31

Размер: 2.6 Кб

, максимальный элемент. А так же если есть какие не будь статьи или вообще хоть что не будь как правильно записываются эти нижние индексы, то прошу поделиться.

@erl27 · 23.09.2014, 18:48

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

В однородном массиве

Может быть, одномерном?

Pascal

var
  X: array[1..15] of real;
  i: byte;
  S, max: real;
  
begin
  randomize;
  S := 0;
  max := 0;
  for i := 1 to 15 do begin
    x[i] := 50 * random;
    write('  ', x[i]:0:2);
    if cos(x[i]) > 0.5 then S := S + x[i]; //находим сумму
    if x[i] > max then max := x[i] //находим максимальный элемент
  end;
  writeln;
  writeln('Сумма: ', S:0:2);
  writeln('Максимальный элемент: ', max:0:2)
end.

@ogrrrrrrr 0 / 0 / 0 Регистрация: 14.09.2014 Сообщений: 13
		1
	В однородном массиве найти сумму элементов, удовлетворяющих условию 23.09.2014, 18:22. Показов 1519. Ответов 1 Метки нет (Все метки) Помогите решить. В однородном массиве Х(15)найти: сумму элементов, удовлетворяющих условию , максимальный элемент. А так же если есть какие не будь статьи или вообще хоть что не будь как правильно записываются эти нижние индексы, то прошу поделиться. 0

	23.09.2014, 18:48

В однородном массиве найти сумму элементов, удовлетворяющих условию

Решение