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

По информатике составить программу в паскале.создать одномерный массив а из 10 целых чисел (с рандома в диапазоне (-50; 100). посчитать количество отрицательных и неотрицательных элементов массива.

👇
Ответ:
outoforder
outoforder
26.03.2022
// PascalABC.NET 3.3
begin
  var a:=ArrRandom(10,-50,100); a.Println;
  var k:=a.Where(x->x<0).Count;
  writeln('Количество отрицательных = ',k,
          ', количество неотрицательных = ',10-k);
end.

Пример:
66 47 65 70 -3 81 45 70 -33 -31
Количество отрицательных = 3, количество неотрицательных = 7
4,7(15 оценок)
Открыть все ответы
Ответ:
Vovanik212
Vovanik212
26.03.2022

На картинке можете посмотреть, как это работает, вначале выводится исходная "матрица" (массив массивов на самом деле), потом одной строкой сколько в каждой "строке" нечетных элементов, затем отсортированная "матрица", и потом, еще раз, сколько нечетных элементов в каждой строке отсортированной "матрицы". Во вложенных файлах в первом сортировка встроенным методом PascalABC.NET и там убрана процедура OddsInARow (см скриншот). Во втором пузырьковая сортировка. Заполнение матрицы рандомное единицами и двойками, можете вставить свои значения в a[i] := ArrRandom(n, 1, 2), где n - кол-во "столбцов" (элементов во внутренних массивах).


Пусть задана вещественная матрица. рассматривая ее как вектор строк, упорядочьте ее по количеству не
4,6(94 оценок)
Ответ:
mugivara9820p09uk7
mugivara9820p09uk7
26.03.2022

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.

4,5(61 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ