Каждый четвертый элемент массива возвести в квадрат, если элемент отрицательный - Pascal ABC

Узнай цену своей работы

Формулировка задачи:

3.*Дан одномерный массив размерностью 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.

Объяснение кода листинга программы

В данном коде на языке Pascal ABC происходит следующее:

  1. Объявляются константа Csize и переменная i.
  2. Создается массив a размером Csize, который предназначен для хранения целых чисел.
  3. Запускается цикл for, в котором пользователь вводит элементы массива.
  4. После завершения цикла for, начинается второй цикл for, в котором перебираются элементы массива от 1 до Csize.
  5. В каждой итерации второго цикла выводится значение элемента массива.
  6. Если значение элемента отрицательное, то оно возводится в квадрат и обновляется значение элемента массива.
  7. Цикл повторяется до тех пор, пока i меньше или равно Csize.
  8. Выводится сообщение о завершении программы.
  9. Выводится измененный массив, состоящий из значений элементов массива, которые были изменены.

Оцени полезность:

6   голосов , оценка 3.833 из 5
Похожие ответы