Первый ищем положительные элементы и меняем им знак)
Программа:
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.
1. Вывести на экран N чисел, в порядке чередования (например если N = 9, то ответом будет 1 9 2 8 3 7 4 6 5) 2. Найти наибольший общий делитель и наименьшее общее кратное двух чисел. 3. Вывести введенную строку в обратном порядке. Решения на Pascal: 1.
var n, i: integer; begin read(n); for i := 1 to n do if odd(i) then write(i div 2 + 1, ' ') else write(n - i div 2 + 1, ' ') end.
2.
var a, b, a1, b1, t: integer; begin read(a, b); a1 := a; b1 := b; repeat t := a mod b; a := b; b := t; until b = 0; writeln('НОД=', a); writeln('НОК=', a1 * b1 div a); end.
3.
var s, s1: string; i: integer; begin read(s); s1 := ''; for i := length(s) downto 1 do s1 += s[i]; write(s1) end.
