Заполните массив 13 элементами случайными числами. Вывести числа от -2 до 4 включительно....

Question

Заполните массив 13 элементами случайными числами. Вывести числа от -2 до 4 включительно. Все отрицательные числа превратить в 1 и сложить все единицы.

Answer 1

// PascalABC.NET 3.3, сборка 1599 от 17.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(13,-2,4); a.Println;
  Writeln('Сумма положительных равна ',a.Where(t->t>0).Sum);
  a.Transform(t->t<0?1:t); a.Println;<br>  Writeln('Сумма единиц равна ',a.Where(t->t=1).Sum)
end.

Пример
1 3 4 4 3 -2 -2 2 1 -2 4 3 -1
Сумма положительных равна 25
1 3 4 4 3 1 1 2 1 1 4 3 1
Сумма единиц равна 6

Answer 2

Вот держи !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

---

Comments

Nkpk, а можете сделать через array, а то меня информатик не поймет

---

в смысле там сделано через array

---

массив по другому не как записать не используя слова array

---

У нас был примерный вариант решения данной задачи.

---

Нужно чтобы в первой строчке было 13 чисел, из этих чисел нужно сложить все положительные, а на следущей строчке из тех же 13 чисел, которые получились в предыдущей, все отрицательные заменить на 1 и сложить все эти единицы.

---

это тип задачи которую вы решали

---

да

---

ну это подобная я все сделал правильно по условию она выводит все числа которые в диапазоне от -2..4 и заминяет все отрицательные числа на 1 м суммирует их в окне вывода там первая строка это числа с диапазона -2..4 , а k это сумма 1

---

задача решена идеально можешь не волноваться