НУЖНА ПОМОЩЬ В ПАСКАЛЕ Из одномерного числового массива Х длиной
НУЖНА ПОМОЩЬ В ПАСКАЛЕ Из одномерного числового массива Х длиной 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
Статьи
Информатика
Статьи
Последние вопросы
Игорь 14 лет назад был на 8 лет моложе, чем его
Математика.
Два тела массами m1 и m2 находящие на расстоянии R друг
Физика.
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
Облако тегов