Регистрация
larisa114
20.10.2022 05:11
Информатика
Есть ответ 👍

Сделать в Майкрософт и переслать очень

155
286
Посмотреть ответы 2

Ответы на вопрос:

kenzhegali1
kenzhegali1
4,8(39 оценок)

ти тожно мені дась ій , чи ти брешеш ?

tata535268
tata535268
4,5(29 оценок)
Первый способ (ищем положительные элементы и меняем им знак) программа: const   max_n = 1000; // максимальное количество элементов в массиве var   a: array[1..max_n] of integer;   i, n: integer;     begin   // ввод массива   write('введите размерность массива: ');   read(n);   writeln('введите массив: ');   for i : = 1 to n do     read(a[i]);   // обработка массива   for i : = 1 to n do     // если элемент положительный, то меняем знак     if a[i] > 0 then       a[i] : = -a[i];   // вывод массива   writeln('полученный массив: ');   for i : = 1 to n do     write(a[i], ' ') end. второй способ (каждому элементу присваиваем обратное его модулю число) программа: const   max_n = 1000; // максимальное количество элементов в массиве var   a: array[1..max_n] of integer;   i, n: integer;     begin   // ввод массива   write('введите размерность массива: ');   read(n);   writeln('введите массив: ');   for i : = 1 to n do     read(a[i]);   // обработка массива   for i : = 1 to n do       a[i] : = -abs(a[i]);   // вывод массива   writeln('полученный массив: ');   for i : = 1 to n do     write(a[i], ' ') end.

Популярно: Информатика