НУЖНА ПОМОЩЬ В ПАСКАЛЕ Из одномерного числового массива Х длиной
НУЖНА ПОМОЩЬ В ПАСКАЛЕ Из одномерного числового массива Х длиной m, содержащего нулевые, положительные и отрицательные элементы, сформировать новый массив У, заменив в Х все отрицательные элементы их модулями. Отыскать творенье ненулевых элементов полученного массива У. Вывести на незапятнанный экран оба массива и приобретенное творенье.
Задать свой вопрос1 ответ
Егор Скалозуб
// PascalABC.NET 3.3
// Cборка 1590 от 03.12.2017
begin
var x:=ArrRandom(ReadInteger('Введите размер массива-gt;'),-5,5); x.Println;
var y:=x.Select(t-gt;tlt;0?abs(t):t); y.Println;
Println('Творение:',x.Where(t-gt;tlt;gt;0).Aggregate((a,b)-gt;a*b));
end.
Пример:
Введите размер массива-gt; 10
1 2 -1 2 4 4 1 1 -3 2
1 2 1 2 4 4 1 1 3 2
Произведение: 384
// Cборка 1590 от 03.12.2017
begin
var x:=ArrRandom(ReadInteger('Введите размер массива-gt;'),-5,5); x.Println;
var y:=x.Select(t-gt;tlt;0?abs(t):t); y.Println;
Println('Творение:',x.Where(t-gt;tlt;gt;0).Aggregate((a,b)-gt;a*b));
end.
Пример:
Введите размер массива-gt; 10
1 2 -1 2 4 4 1 1 -3 2
1 2 1 2 4 4 1 1 3 2
Произведение: 384
Наконешный
Арсений
мне желательно турбо Паскаль нужен
Балль
Руслан
Очень поздно написали, нужно в условии уточнять
Шалупенко
Анатолий
Турбо Паскаль он же вроде как обыденный только с граф. ядром, на данный момент напишу код
Данька Кривобок
var x,y:array[1..100] of integer;i,a,n:integer;begin write('Введите размер массива: ');readln(n); for i:=1 to n do begin x[i]:=Random(10)-5; write(x[i],' '); end; writeln; for i:=1 to n do begin y[i]:=x[i]; if x[i]<0 then y[i]:=абс(x[i]); write(y[i],' '); end; a:=1; writeln; for i:=1 to n do if y[i]<>0 then a:=a*y[i]; writeln('Творенье: ',a);end.
Ванек Пешунов
Пример:
Василий Малодгеев
Введите размер массива: 50 4 -1 0 -1 0 4 1 0 1 Произведение: 4
Pashok Kolbasko
Слодно после 3.3 по обыкновенному писать, хочеться что-то добавить из нового, а нельзя()
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
10) Килограмм конфет дороже килограмма печенья на 52 р. За 8
Математика.
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
Облако тегов