Question

Информатика 9 клас Lazarus
Дан масив чисел від 1 до 20. До чотних елементів додати певне число x, а з нечотних елементів відняти певне число y.

Answer 1

Ответ:

program array_operations;

var

 arr: array[1..20] of integer;

 i, x, y: integer;

begin

 // Заповнюємо масив від 1 до 20

 for i := 1 to 20 do

   arr[i] := i;

 

 // Вводимо значення x та y

 write('Введіть число x: ');

 readln(x);

 write('Введіть число y: ');

 readln(y);

 

 // Виконуємо операції з масивом

 for i := 1 to 20 do

 begin

   if arr[i] mod 2 = 0 then

     arr[i] := arr[i] + x

   else

     arr[i] := arr[i] - y;

 end;

 

 // Виводимо змінений масив

 writeln('Змінений масив:');

 for i := 1 to 20 do

   write(arr[i], ' ');

end.

Объяснение:

У цьому коді ми спочатку заповнюємо масив числами від 1 до 20. Потім вводимо значення x та y. Далі проходимо по всіх елементах масиву і за допомогою умовної конструкції if виконуємо необхідну операцію з елементом. Нарешті, виводимо змінений масив на екран.