Найти произведение минимального и максимального элементов среди положительных элементов массива

@kssiunq · Регистрация: 29.10.2021

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

Составить программу выполнения задания по одномерному массиву. Ввести входные данные и вывести на экран выходящие данные.
Найти произведение минимального и максимального элементов среди положительных элементов массива
Тип элемента массива-real
Длина массива-11

@JuriiMW · 04.05.2022, 16:53

Pascal

1 2	## var a:=ArrRandomReal(11,-10,+10).Println; var b:=a.Where(x->x>0);if b.Any then $'min·max={b.min}·{b.max}={b.Min*b.Max}'.Println else 'нет положительных'.Println;

@kssiunq · 11.05.2022, 16:04 **[ТС]**

Создать программу для выполнения задания одномерного массива. Ввести входные данные и вывести на экран.
Тип элемента массива real
Длина массива 11
Найти произведение минимального и максимального элемента среди положительных элементов массива

@XzzzX · 13.05.2022, 16:50

Pascal

##
var a:= ArrRandomReal(11, -10, 10);
a.Println; writeln;
 
if a.All(p-> p <= 0) then
  print('нет положительных')
else begin
  var (min, max):= (10.0, -10.0);
  foreach var x in a.Where(p-> p > 0) do begin
    if x < min then
      min:= x;
    if x > max then
      max:= x;
  end;
  print(max*min);
end;

@kssiunq -1 / 0 / 0 Регистрация: 29.10.2021 Сообщений: 61
		1
	Найти произведение минимального и максимального элементов среди положительных элементов массива 04.05.2022, 16:41. Показов 453. Ответов 3 Метки массивы, математика для программиста, паскаль abc.net, програмированние, программирование (Все метки) Составить программу выполнения задания по одномерному массиву. Ввести входные данные и вывести на экран выходящие данные. Найти произведение минимального и максимального элементов среди положительных элементов массива Тип элемента массива-real Длина массива-11 0

@kssiunq -1 / 0 / 0 Регистрация: 29.10.2021 Сообщений: 61
	11.05.2022, 16:04 [ТС]	3
	Создать программу для выполнения задания одномерного массива. Ввести входные данные и вывести на экран. Тип элемента массива real Длина массива 11 Найти произведение минимального и максимального элемента среди положительных элементов массива 0

	13.05.2022, 16:50