Составить программу: сформировать в памяти массив из 15 целых чисел.изменить массив так,чтобы числа под чётными номерами были удвоены,а на нечётных-заменены нулями.

Var   a: array [1..25] of integer; begin   for i: integer : = 1 to 25 do   begin     a[i] : = random(255);     writeln(i, ' => ', a[i]);   end;   writeln('');   for i: integer : = 1 to 25 do   begin    if (i mod 2 = 0) then       a[i] : = a[i] * 2     else       a[i] : = 0;     writeln(i, ' => ', a[i]);   end; end.

Так как целевой язык не указан и автор во выразил своё безразличие к этому во то написал пример на С# с использованием возможностей стандартной библиотеки языка.

Код ниже:

using System;

using System.Linq;

using System.Collections.Generic;

namespace Znanium {

public class AnotherOne

{

 public static void Main()

 {

  // Генерация массива

  var rand = new Random(); // Инициализируем рандомайзер

  int[] arr = (from x in Enumerable.Range(0, 10) // Отсчитываем 10 элементов

     select rand.Next(100)) // Генерируем счисло от 0 до 99

     .ToArray(); // Делаем из объекта массив

 

  // Печатаем массив на экран

  Console.WriteLine("Source array:");

  PrintArr(arr);

 

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

  int maxEl = arr.Max();

  Console.WriteLine($"Max element is {maxEl}.");

 }

 

 public static void PrintArr(int[] arr) {

  Console.Write("[ ");

  foreach(var el in arr) {

   Console.Write($"{el} ");

  }

  Console.WriteLine("]");

 }

}

}