Question

1) Вывести на экран все элементы массива, стоящие на четных местах. 2) Найти сумму элементов массива, стоящих на нечетных местах. 3) Дан одномерный массив размерностью 15, найти максимальный элемент массива, заменить его числом "0", а затем вывести на экран полученный массив (в строку). ПАСКАЛЬ

Answer 1

// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  a.Where((x,i)->i.IsOdd).Println; // для №1
  Writeln('Сумма =',a.Where((x,i)->i.IsEven).Sum); // для №2
end.

Пример
n= 13
-2 33 -49 49 50 -48 -11 27 47 10 17 22 38
33 49 -48 27 10 22
Сумма =90

№3
begin
  var a:=ArrRandom(15,-99,99); a.Println;
  a[a.IndexMax]:=0; a.Println
end.

Пример
34 -62 -42 98 44 -56 9 -69 85 55 -86 -32 83 -94 -19
34 -62 -42 0 44 -56 9 -69 85 55 -86 -32 83 -94 -19

Answer 2

1) Для вывода на экран всех элементов массива, стоящих на четных местах, можно использовать следующий код на Pascal:

program PrintEvenElements;
var
  arr: array[1..15] of integer;
  i: integer;
begin
  // заполнение массива значениями
  for i := 1 to 15 do
    arr[i] := i;
  
  // вывод элементов на четных позициях
  for i := 2 to 15 step 2 do
    writeln(arr[i]);
end.

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

program SumOddElements;
var
  arr: array[1..15] of integer;
  i, sum: integer;
begin
  // заполнение массива значениями
  for i := 1 to 15 do
    arr[i] := i;
  
  // вычисление суммы элементов на нечетных позициях
  sum := 0;
  for i := 1 to 15 step 2 do
    sum := sum + arr[i];
  
  writeln('Сумма элементов на нечетных позициях: ', sum);
end.

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

program ReplaceMaxWithZero;
var
  arr: array[1..15] of integer;
  i, maxIndex: integer;
begin
  // заполнение массива случайными значениями
  randomize;
  for i := 1 to 15 do
    arr[i] := random(100);
  
  // поиск максимального элемента и его замена
  maxIndex := 1;
  for i := 2 to 15 do
    if arr[i] > arr[maxIndex] then
      maxIndex := i;
  arr[maxIndex] := 0;
  
  // вывод полученного массива
  for i := 1 to 15 do
    write(arr[i], ' ');
end.

Эти программы помогут выполнить указанные операции с массивом и вывести результат на экран на языке Pascal.