SerenaWilliamsisa
30.06.2021 16:39

Встановити послідовність етапів побудови інформаційної моделі. А) аналіз об'єкта:
Б) Опис завдання:
В)встановлення мети моделювання,
Г) створення комп'ютерної моделі.​

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
grek1990
26.09.2020 02:50

using System;

using System.Collections.Generic;

using System.Linq;

using System.Numerics;

public class Program

{

   public static void Main(string[] args)

   {

       Console.WriteLine("Enter 12 integer numbers");

       var Arr = new List<int>();

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

       {

           Arr.Add(int.Parse(Console.ReadLine()));

       }

       Console.WriteLine($"Кол-во нулевых элементов: {Arr.Where(p => p == 0).Count()}");

       Console.WriteLine($"Positive numbers product: {Arr.Where(p => p > 0).Aggregate(BigInteger.One, (p, q) => p * q)}");

       Console.ReadKey();

   }

}

Объяснение:

Добавьте ссылку на сборку System.Numerics в вашем проекте для корректной работы программы. Иначе будет ругаться на несуществующее пространство System.Numerics

0,0(0 оценок)
Ответ:
starkoviv23
18.03.2021 17:05

program Project1;

const

 n = 15;

var

 c: array[1..n] of real = (0, 1.25, -371, 0.5, -0.1, 1.2, -5, -172.3, 19783, -2.7, 43.51, 0, -0.02, 14.5, 123.7);

 // Переменная для хранения массива.

 i: integer; // Вс переменная для организации цикла.

 minelem: real; // Переменная для хранения значения элемента с минимальным значением.

 indmin: integer; // Переменная для хранения значения индекса минимального элемента.

 

begin

 writeln('Исходный массив:');

 for i:= 1 to n do      // Вывод массива в консоль.

   begin

     write(c[i]:9:2);

     if i mod 8 = 0 then

       writeln;

   end;

 writeln;

 minelem:= c[1];

 indmin:= 1;

 for i:= 2 to n do

   if c[i] < minelem then // Условие для нахождения элемента с минимальным значением.

     begin

       minelem:= c[i];

       indmin:= i; // Индекс элемента с минимальным значением.

     end;

 writeln('Минимальный элемент массива находится на ',indmin,' месте и равен ',minelem:0:2);

 Readln;

end.

Объяснение:

     В принципе я указал комментарии к некоторым действиям, так что должно быть понятно(комментарии потом лучше стереть). В отчет можешь сделать скриншот уже с результатом работы программы (мы так обычно делаем). Если остались вопросы пиши в комментарии.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота