AlexanderVard
13.06.2020 15:18

Написать 10 оперативной памяти. пример: буфер обмена.​

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
karinanazarenkoAnna
21.06.2022 19:57

Задача 1:

using System;

using System.Linq;

namespace ConsoleApp1

{

   internal class Program

   {

       private static void Main(string[] args)

       {

           Console.Write("Enter n: ");

           int n = int.Parse(Console.ReadLine());

           var x = new int[n];

           var rand = new Random();

           for (int i = 0; i < n; i++)

           {

               x[i] = rand.Next(-100, 100);

               Console.WriteLine($"x[{i}] = {x[i]}");

           }

           int max = x.Max();

           int index = Array.IndexOf(x, max);

           for (int i = 0; i < index; i++)

           {

               if (x[i] < 0)

                   x[i] = 0;

           }

           Console.WriteLine("\nResult:");

           for (int i = 0; i < n; i++)

               Console.WriteLine($"x[{i}] = {x[i]}");

       }

   }

}

Задача 2:

using System;

using System.Linq;

namespace ConsoleApp2

{

   internal class Program

   {

       private static void Main(string[] args)

       {

           Console.Write("Enter n: ");

           int n = int.Parse(Console.ReadLine());

           var a = new int[n];

           var rand = new Random();

           for (int i = 0; i < n; i++)

           {

               a[i] = rand.Next(-100, 100);

               Console.WriteLine($"x[{i}] = {a[i]}");

           }

           int[] positiveItems = a.Where(t => t > 0).ToArray();

           if (positiveItems.Length == 0)

           {

               Console.WriteLine("No positive numbers");

               return;

           }

           int sum = positiveItems.Sum();

           int product = positiveItems.Aggregate((x, y) => x * y);

           double arithmeticMean = sum / (double)positiveItems.Length;

           double geometricMean = Math.Pow(product, 1 / (double)positiveItems.Length);

           Console.WriteLine($"\nArithmetic mean: {arithmeticMean}");

           Console.WriteLine($"Geometric mean: {geometricMean}");

       }

   }

}


1) В заданном массиве Х(N) замените нулями все отрицательные компоненты, непосредственно предшествую
1) В заданном массиве Х(N) замените нулями все отрицательные компоненты, непосредственно предшествую
0,0(0 оценок)
Ответ:
yulis1929
27.09.2020 01:33
// PascalABC.NET 3.0, сборка 1144 от 16.01.2016
type
  Point=record
  x,y:real
  end;

function GetPoint(c:char):Point;
begin
  Writeln('Введите координаты точки ',c,':');
  Read(Result.x,Result.y)
end;

function Line(A,B:Point):real;
begin
  Result:=sqrt(sqr(B.x-A.x)+sqr(B.y-A.y))
end;

function SqTriangle(pA,pB,pC:Point):real;
begin
  var a:=Line(pB,pC);
  var b:=Line(pA,pC);
  var c:=Line(pA,pB);
  if (a+b>c) and (a+c>b) and (b+c>a) then begin
    var p:=(a+b+c)/2;
    Result:=sqrt(p*(p-a)*(p-b)*(p-c))
    end
  else Result:=0
end;

begin
  var A:=GetPoint('A');
  var B:=GetPoint('B');
  var C:=GetPoint('C');
  Writeln('Площадь треугольника равна ',SqTriangle(A,B,C))
end.

Тестовое решение:
Введите координаты точки A:
-5 3.18
Введите координаты точки B:
1.45 6.2
Введите координаты точки C:
6 -5.93
Площадь треугольника равна 45.98975
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота