Question

Массив из 10 элементов заполнить случайными числами от 0 до 20 и вывести на экран. Выполнить сдвиг элементов на 2 вправо и вывести результат на экран. Pascal

Answer 1

лами в интервале и отсортировать по убыванию

1

olimpbet.kz

РЕКЛАМА

Главный Приз Mercedes-Benz G-класс

twp.ru

РЕКЛАМА

Форсунка чашечная

ZX Spectrum-128

Эксперт Pascal/Delphi

6799 / 4560 / 4815

Регистрация: 05.06.2014

Сообщений: 22,438

04.05.2020, 18:24 2

Лучший ответ Сообщение было отмечено fleen как решение

Решение

PascalВыделить код

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

var

A: array of integer;

suma, n, i: integer;

begin

Randomize;

writeln('Array A: ');

n := 25;

suma := 0;

SetLength(a, n);

for i := 0 to n - 1 do

begin

A[i] := -20 + Random(66);

Write(A[i]:4);

if odd(i) then

suma := suma + a[i];

end;

writeln;

writeln('New array A: ');

for i := 0 to n - 1 do

begin

if odd(a[i]) then

a[i] := 0

else

a[i] := 1;

Write(a[i]:4);

end;

writeln;

writeln('Sum of array A: ', suma);

end.

Answer 2

Для создания программы на Pascal, которая создает массив из 10 элементов, заполняет его случайными числами от 0 до 20, выполняет сдвиг элементов на 2 вправо и выводит результат на экран, вы можете использовать следующий код:

program ShiftArray;

const
  N = 10; // Размер массива

var
  arr: array[1..N] of Integer;
  i, temp: Integer;

procedure FillArray;
begin
  // Заполнение массива случайными числами от 0 до 20
  Randomize;
  for i := 1 to N do
    arr[i] := Random(21);
end;

procedure DisplayArray;
begin
  // Вывод массива на экран
  writeln('Исходный массив:');
  for i := 1 to N do
    write(arr[i], ' ');
  writeln;
end;

procedure RightShiftArray(shift: Integer);
begin
  // Выполнение сдвига элементов на shift вправо
  for i := N downto 1 do
  begin
    if i - shift > 0 then
      arr[i] := arr[i - shift]
    else
      arr[i] := 0; // Заполняем освободившиеся ячейки нулями
  end;
end;

begin
  // Основная часть программы
  FillArray;
  DisplayArray;

// Выполнение сдвига на 2 вправо
  RightShiftArray(2);

// Вывод результата
  writeln('Массив после сдвига на 2 вправо:');
  for i := 1 to N do
    write(arr[i], ' ');
  writeln;
end.

Этот код создает массив `arr` из 10 элементов, заполняет его случайными числами от 0 до 20, выводит исходный массив, выполняет сдвиг элементов на 2 вправо и выводит результат после сдвига.