Даны три массива действительных чисел {x} (i=1,2,...,n), {y} (j=1,2,...,m), {z} (k=1,2,...,10).
. Напечатать массив с
а) наибольшей суммой положительных элементов;
б) наименьшей суммой квадратов отрицательных элементов.

Hi mister,

-------

Скрин #1

-------

Пользуясь моим скрином, понимаем, что такие буквы как Ж  и  К имеют 2 пути, а другие 3 пути.

Рассмотрим буквы Ж и К на рисунке это 2 и 7, осталось узнать какая какой принадлежит.

Начнем с самого простого, единственная буква, которая относится к обоим дорогам (Ж и К) это буква Д.

Значит буква Д должна иметь пусть с Ж, К и еще буквой В.

Исходя из таблицы, понимаем что #3 это буква Д, а #4 это буква В.

---------

Скрин #2

---------

Рассмотрим ситуацию букв К, В, Е. отсюда также легко сможем найти Ж и Б

Исходя из скрина мы видим что для буквы Е мы нашли подходящие буквы, В(#4) и К(#2), понимаем что буква Е = #6, отсюда понимаем что Б(#1) и что Ж(#7)

---------

Скрин #3

---------

Находим оставшиеся:

А - #5

Г - #8

ответ по задаче: 14 (#1 и #4 без пробелов)

Источник: Мозг.

var a, b, c, d, min, max: integer;

begin

 // Min

 readln(a, b, c, d);

 if (a <= b) and (a <= c) and (a <= d) then min := a

 else if (b <= a) and (b <= c) and (b <= d) then min := b

 else if (c <= a) and (c <= b) and (c <= d) then min := c

 else if (d <= a) and (d <= b) and (d <= c) then min := d;

 // Max

 if (a >= b) and (a >= c) and (a >= d) then max := a

 else if (b >= a) and (b >= c) and (b >= d) then max := b

 else if (c >= a) and (c >= b) and (c >= d) then max := c

 else if (d >= a) and (d >= b) and (d >= c) then max := d;

 writeln('Min: ', min);

 writeln('Max: ', max);

end.