Question

Pascal ABC, помогите пожалуйста
1. Массив размерности N задастся случайным образом. Вывести элементы массива, которые стоят на четных местах, например. А[2]=….. А[4]=…...
2. B одномерном массиве, состоящем из N вещественных элементов, вычислить минимальный элемент и поменять местами с первым.​

Answer 1

Ответ:

1.

program Answer;

const

N = 10;

var

A: array[1..N] of Integer;

i: Integer;

begin

for i := 1 to N do A[i] := Random(100);

for i := 2 to N do

if i mod 2 = 0 then

WriteLn('A[', i, ']=', A[i]);

ReadLn;

end.

2.

program Answer;

const

N = 10;

var

B: array[1..N] of Real;

i, minIndex: Integer;

minValue, temp: Real;

begin

//Заполнение массива вещественными значениями

for i := 1 to N do

B[i] := Random;

//Вывод массива до обмена

WriteLn('Массив до обмена:');

for i := 1 to N do

WriteLn('B[', i, ']=', B[i]);

//Нахождение минимального элемента и его индекса

minValue := B[1];

minIndex := 1;

for i := 2 to N do

if B[i] < minValue then

begin

minValue := B[i];

minIndex := i;

end;

// Обмен минимального элемента с первым

temp := B[1];

B[1] := minValue;

B[minIndex] := temp;

// Вывод массива после обмена

WriteLn('Массив после обмена:');

for i := 1 to N do

WriteLn('B[', i, ']=', B[i]);

ReadLn;

end.