PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018 Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger('Укажите n>11:'); var c:=ArrRandom(n,-50,50); c.Println; var a:=new integer[n]; for var i:=0 to n-1 do if i.Between(2,11) then a[i]:=Sqr(c[i]) else a[i]:=c[i]-1; a.Println; var imax:=a.IndexMax; a[imax]:=-a[imax]; Writeln('Максимальный элемент заменен на ',a[imax]); var imin:integer; (imin,imax):=(a.IndexMin,a.IndexMax); if imin>imax then Swap(imin,imax); for var i:=imin+1 to imax-1 do a[i]:=0; a.Println end.
//Поскольку вы не указали чем заполнять массив, заполнил его рандомными значениями
using System;
namespace 4 { class Program { static void Main(string[] args) { Console.Write("Введите N: "); int N = Convert.ToInt32(Console.ReadLine()); Console.WriteLine();
Random Rand = new Random();
int[] Array = new int[N]; int k = 0;
for (int i = 0; i < N / 2; i++) { Array[k] = Rand.Next(1, 100); Console.WriteLine("Элемент " + k + " = " + Array[k]); k += 2; }
Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('Укажите n>11:');
var c:=ArrRandom(n,-50,50); c.Println;
var a:=new integer[n];
for var i:=0 to n-1 do
if i.Between(2,11) then a[i]:=Sqr(c[i]) else a[i]:=c[i]-1;
a.Println;
var imax:=a.IndexMax;
a[imax]:=-a[imax];
Writeln('Максимальный элемент заменен на ',a[imax]);
var imin:integer;
(imin,imax):=(a.IndexMin,a.IndexMax);
if imin>imax then Swap(imin,imax);
for var i:=imin+1 to imax-1 do a[i]:=0;
a.Println
end.
Пример
Укажите n>11: 15
-47 11 -42 23 29 12 3 -24 -20 11 -4 38 42 -26 -28
-48 10 1764 529 841 144 9 576 400 121 16 1444 41 -27 -29
Максимальный элемент заменен на -1764
-48 10 -1764 0 0 0 0 0 0 0 0 1444 41 -27 -29