Каждый четвертый элемент массива возвести в квадрат, если элемент отрицательный - Turbo Pascal
Формулировка задачи:
Дан одномерный массив размерностью 16, заполненный целыми числами, введенными с клавиатуры. Каждый четвертый элемент массива возвести в квадрат, если элемент отрицательный. Измененный массив вывести на экран
Решение задачи: «Каждый четвертый элемент массива возвести в квадрат, если элемент отрицательный»
textual
Листинг программы
program pr; const Csize = 16; var i: integer; a: array [1..Csize] of integer; begin for i := 1 to Csize do begin writeln('Введите ', i, ' элемент'); readln(a[i]); end; for i := 1 to Csize do write(a[i]:3); i := 4; repeat if a[i] < 0 then begin a[i] := a[i] * a[i]; end; i := i + 4; until i > Csize; writeln; writeln('Изменённый массив'); for i := 1 to Csize do write(' ',a[i]:3); end.
Объяснение кода листинга программы
Этот код написан на языке Turbo Pascal и выполняет следующие действия:
- Запрашивает у пользователя ввод 16 элементов для массива.
- Выводит на экран введённые элементы массива.
- Если элемент отрицательный, то возводит его в квадрат и обновляет исходный массив.
- Повторяет шаги 2-3 до тех пор, пока индекс элемента не превысит размер массива.
- Выводит изменённый массив на экран.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д