Дан массив из 12 элементов, в котором есть положительные и отрицательные
Дан массив из 12 элементов, в котором есть положительные и отрицательные числа (ноль тоже
есть): а1=5, а2=4, а3=-3, а4=1, а5=0, а6=-4, а7=, а8=25, а9=-8, а10=-5, а11=-17, а12=-1.
Составьте программку, в которой
1 вариант: Все отрицательные числа изменяются на 1, все положительные на -5, нулевые не
трогаются. Вывести на экран начальный и приобретенный массив.
1 ответ
Владимир Шелканов
Const n=12;
a:array[1..n] of integer=(5,4,-3,1,0,-4,7,25,-8,-5,-17,-1);
var i:integer;
begin
for i:=1 to n do write(a[i]:4);
writeln;
for i:=1 to n do
if a[i]lt;0 then a[i]:=1
else if a[i]gt;0 then a[i]:=-5;
for i:=1 to n do write(a[i]:4);
end.
Итог:
5 4 -3 1 0 -4 7 25 -8 -5 -17 -1
-5 -5 1 -5 0 1 -5 -5 1 1 1 1
a:array[1..n] of integer=(5,4,-3,1,0,-4,7,25,-8,-5,-17,-1);
var i:integer;
begin
for i:=1 to n do write(a[i]:4);
writeln;
for i:=1 to n do
if a[i]lt;0 then a[i]:=1
else if a[i]gt;0 then a[i]:=-5;
for i:=1 to n do write(a[i]:4);
end.
Итог:
5 4 -3 1 0 -4 7 25 -8 -5 -17 -1
-5 -5 1 -5 0 1 -5 -5 1 1 1 1
Агата Патратьева
Не работает! Пишет a невозможно присвоить постоянному обьекту(9 строка)
Виктория Сухаребская
А Вы с каким паскалем работаете?
Anna Drobiz
ABC
Хозицкий
Игорь
Что, всё заработало?
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
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 причём
Геометрия.
Облако тегов