Массив из 13 элементов заполнить случайными числами от -2 до 4 включительно.
Найти сумму положительных элементов . Заменить все отрицательные элементы единицами.
Определить количество единичных элементов.
Ответы на вопрос
Ответил nkpk
0
Вот держи !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Приложения:
Ответил ICanSayUGay1337
0
Нужно две строчки
Ответил ICanSayUGay1337
0
одна простая, а другая уже с единицами. Если не сложно, можете сделать, пожалуйста)
Ответил nkpk
0
вот так
Ответил nkpk
0
Так вы хотели ?
Ответил ICanSayUGay1337
0
Вы МОЛОДЕЦ!
Ответил Аноним
0
// 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;
Writeln('Единичных элементов: ',a.Where(t->t=1).Count)
end.
Пример
-1 3 -2 -2 2 2 2 1 0 2 -2 -2 -1
Сумма положительных равна 12
1 3 1 1 2 2 2 1 0 2 1 1 1
Единичных элементов: 7
// Внимание! Если программа не работает, обновите версию!
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;
Writeln('Единичных элементов: ',a.Where(t->t=1).Count)
end.
Пример
-1 3 -2 -2 2 2 2 1 0 2 -2 -2 -1
Сумма положительных равна 12
1 3 1 1 2 2 2 1 0 2 1 1 1
Единичных элементов: 7
Приложения:
Новые вопросы