В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
temamojet1997
temamojet1997
25.09.2020 03:46 •  Информатика

Задание 1 Вычислите значения выражений на языке Python:
3
Какие результаты вы получили при вычислении значения
выражений на языке программирования Python? ​


Задание 1 Вычислите значения выражений на языке Python:3Какие результаты вы получили при вычислении

Показать ответ
Ответ:
milanamva00
milanamva00
28.11.2021 16:36

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


using System;

namespace ConsoleApp2

{

   class Program

   {

       static void Main(string[] args)

       {

           Random rand = new Random();

           const int size = 10;

           const int x = -100;

           const int y = 100;

           int counter = 0;

           int[] arr = new int[size];

           Console.WriteLine("Массив:");

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

           {

               arr[i] = rand.Next(x, y);

               if (arr[i] < 0)

                   counter++;

               Console.WriteLine((i + 1) + ") " + arr[i]);

           }

           Console.WriteLine("\nКоличество отрицательных элементов: " + counter);

           Console.ReadKey();

       }

   }

}


Дан массив из 10 целочисленных элементов. найти количество отрицательных и вывести количество на экр
Дан массив из 10 целочисленных элементов. найти количество отрицательных и вывести количество на экр
0,0(0 оценок)
Ответ:
ianezlo
ianezlo
03.04.2021 05:56

unit Unit1;

interface

uses

 System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,

 FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Edit,

 FMX.Controls.Presentation, FMX.StdCtrls;

type

 TForm1 = class(TForm)

   Button1: TButton;

   Edit1: TEdit;

   procedure Button1Click(Sender: TObject);

 private

   { Private declarations }

 public

   { Public declarations }

 end;

var

 Form1: TForm1;

  x, s: integer;

implementation

{$R *.fmx}

procedure TForm1.Button1Click(Sender: TObject);

begin

 x:=StrToInt(Edit1.Text);

 s:=(x+2)/5;

 Showmessage(IntTostr(s)+'ответ');

end;

end.

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