Переписать первые элементы матрицы А, крупнее постоянной Х, в массив В

@Romashka1973 · Регистрация: 17.10.2014

Студворк — интернет-сервис помощи студентам

Переписать первые элементы матрицы А размерности (10х10), крупнее постоянную Х, в массив В. Если в строке нет элемента большего из Х, то записать в массив В - ноль. Каждый элемент матрицы А подсчитывается по формуле
aij = b + (j-1) * 0.5 + random (j), i = 1,2, ..., n, j = 1,2, ..., n
Выходные данные: b = 0,3; X = 0,5.

@ZX Spectrum-128 · 18.10.2014, 12:34

Долго пытался понять условие задания.
Написал как понял.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
{ Переписать первые элементы матрицы А размерности (10х10), крупнее
постоянную Х, в массив В. Если в строке нет элемента большего из Х,
то записать в массив В - ноль. Каждый элемент матрицы А подсчитывается
по формуле
aij = b + (j-1) * 0.5 + random (j), i = 1,2, ..., n, j = 1,2, ..., n
Выходные данные: b = 0,3; X = 0,5.}
const
  n=10;
var
  a:array[1..n,1..n] of real;
  b:array[1..n,1..n] of real;
  m,i,j:integer;
  x,y:real;
begin
  writeln('Массив А:');
  randomize;
  x:=0.5;
  y:=0.3;
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          a[i,j]:=y+(j-1)*0.5+random(j);
          write(a[i,j]:6:2);
        end;
      writeln;
    end;
  for i:=1 to n do
    for j:=1 to n do
      if a[i,j]>y then
        b[i,j]:=a[i,j]
      else
        b[i,j]:=0;
  writeln('Массив B:');
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          write(b[i,j]:6:2);
        end;
      writeln;
    end;
 
  readln;
end.

@Romashka1973 · 19.10.2014, 18:30 **[ТС]**

спасибо огромное!

Новые блоги и статьи Все статьи Все блоги /
1С: Контроль уникальности заводского номера Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью. Данные берутся из регистра сведений, по которому настроено. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	1С: Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .
Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	1С: Программный отбор элементов справочника по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .

@Romashka1973 0 / 0 / 0 Регистрация: 17.10.2014 Сообщений: 26

	Переписать первые элементы матрицы А, крупнее постоянной Х, в массив В 17.10.2014, 17:39. Показов 1137. Ответов 2 Метки нет (Все метки) Переписать первые элементы матрицы А размерности (10х10), крупнее постоянную Х, в массив В. Если в строке нет элемента большего из Х, то записать в массив В - ноль. Каждый элемент матрицы А подсчитывается по формуле aij = b + (j-1) * 0.5 + random (j), i = 1,2, ..., n, j = 1,2, ..., n Выходные данные: b = 0,3; X = 0,5. 0

@Romashka1973 0 / 0 / 0 Регистрация: 17.10.2014 Сообщений: 26
	19.10.2014, 18:30 [ТС]
	спасибо огромное! 0

Переписать первые элементы матрицы А, крупнее постоянной Х, в массив В

Решение