Предмет: Информатика,
автор: eugenereuh
Pascal
Ввести одномерный массив, состоящий из 10 элементов. Заменить отрицательные элементы на противоположные по знаку. Вывести полученный массив на экран
Ответы
Автор ответа:
0
Ответ:
1) Дан целочисленный одномерный массив состоящий из n элементов. Вывести отрицательные элементы массива.
2) Дан одномерный массив состоящий из n элементов. Если очередной элемент чётный, то прибавь к нему первый, если нечётный - прибавить последний. Первый и последний элементы не изменять. (тут можно с пояснением).
3) Дан целочисленный одномерный массив. состоящий из n элементов. Найти произведение нечётных элементов кратных 3.
0
Объяснение:
eugenereuh:
к чему это тут написано?
program massive (input, output);
type vector=array[1..10] of integer;
var I:integer;
z:vector;
begin
for I:=1 to 10 do
read (z[I]);
for I:=1 to 10 do
if z[I]<0 then z[I]:=z[i]*(-1);
for I:=1 to 1o do
write (z[I], ' ');
end.
type vector=array[1..10] of integer;
var I:integer;
z:vector;
begin
for I:=1 to 10 do
read (z[I]);
for I:=1 to 10 do
if z[I]<0 then z[I]:=z[i]*(-1);
for I:=1 to 1o do
write (z[I], ' ');
end.
BobbyFresnel, может выпоможете?
Автор ответа:
1
===== PascalABC.NET =====
begin
var a := ReadArrInteger(10);
a.Transform(p -> Abs(p));
a.Print
end.
Приложения:
Похожие вопросы
Предмет: Русский язык,
автор: 2012harlei2012
Предмет: Английский язык,
автор: Аноним
Предмет: Русский язык,
автор: кэтрино4ка
Предмет: Биология,
автор: Muke
Предмет: Алгебра,
автор: Нюта22102003