Ввести элементы одномерного массива

@Katerina1998 · Регистрация: 16.05.2017

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

Pascal ABC
Ввести элементы одномерного массива размером 10 через типизированную константу. Значения элементов массива: 8.3, 1.1, 3.3, -7.1, 1.6, -3.9, -0.17, 0.01, 2.07, 9.1. Вычислить:
• среднее арифметическое значение среди положительных элементов массива;
• максимальный элемент и его номер;
• произведение положительных элементов;
• упорядочить элементы по возрастанию.

@Hitoku · 16.05.2017, 16:06

Pascal

begin
  var a: array of real := (8.3, 1.1, 3.3, -7.1, 1.6, -3.9, -0.17, 0.01, 2.07, 9.1);
  writeln('Среднее положительных: ', a.Where(v -> v > 0).Average);
  writeln(Format('Максимальный: {0} [{1}]', a.Max, a.IndexMax + 1));
  writeln('Произведение положительных: ', a.Aggregate(1.0, (x, v) -> v > 0 ? x * v : x));
  writeln('Упорядоченный массив: ', a.OrderBy(v -> v).JoinIntoString(' '));
end.

@Katerina1998 0 / 0 / 0 Регистрация: 16.05.2017 Сообщений: 2
		1
	Ввести элементы одномерного массива 16.05.2017, 15:20. Показов 1236. Ответов 1 Метки нет (Все метки) Pascal ABC Ввести элементы одномерного массива размером 10 через типизированную константу. Значения элементов массива: 8.3, 1.1, 3.3, -7.1, 1.6, -3.9, -0.17, 0.01, 2.07, 9.1. Вычислить: • среднее арифметическое значение среди положительных элементов массива; • максимальный элемент и его номер; • произведение положительных элементов; • упорядочить элементы по возрастанию. 0

	16.05.2017, 16:06

Опции темы

Ввести элементы одномерного массива

Решение