М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации

Что делать и так все очищал,ничего не

👇
Открыть все ответы
Ответ:
UltraTwItTeR
UltraTwItTeR
07.09.2020
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.

Пример
Укажите 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
4,5(43 оценок)
Ответ:
димон7777
димон7777
07.09.2020
//Язык С#

//0 считается четным числом

//Поскольку вы не указали чем заполнять массив, заполнил его рандомными значениями

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;
}

Console.ReadKey();
}
}
}
Cначала задано число n - количество элементов в массиве (1 необходимо вывести все элементы массива с
Cначала задано число n - количество элементов в массиве (1 необходимо вывести все элементы массива с
4,8(48 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ