Создать двумерный динамический массив произвольного размера NxN (размер ввести). Заполнить массив случайным об

@grinder821 · Регистрация: 24.09.2014

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

Создать двумерный динамический массив произвольного размера NxN (размер ввести). Заполнить массив случайным образом. Найти все значения элементов массива, расположенные на главной диагонали и вывести их значения и индексы.

@Puporev · 26.03.2015, 12:13

Delphi
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
46
47
48
49
50
51
52
53
54
var
  Form1: TForm1;
  x: array of array of integer;
  n: integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
//зададим некоторые параметры таблицы
with StringGrid1 do
 begin
  fixedCols:=0;
  fixedRows:=0;
  defaultColwidth:=30;
  scrollBars:=ssBoth
 end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var i,j,code:integer;
begin
randomize;
//проверим ввод размеров
val(Edit1.Text,n,code);
if (code<>0)or(n<2)then
 begin
  ShowMessage('Неверно введен размер матрицы');
  Edit1.Clear;
  Edit1.SetFocus;
  exit
 end;
StringGrid1.RowCount:=n;
StringGrid1.ColCount:=n;
Setlength(x,n,n);
for i:=0 to n-1 do
for j:=0 to n-1 do
 begin
  x[i,j]:=10+random(50);
  StringGrid1.Cells[j,i]:=IntToStr(x[i,j])
 end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var i,j:integer;
begin
Memo1.Clear;
Memo1.Lines.Add('Элементы главной диагонали');
for i:=0 to n-1 do
Memo1.Lines.Add('a['+inttostr(i+1)+','+inttostr(i+1)+']='
                +inttostr(x[i,i]));
 
end;

Новые блоги и статьи Все статьи Все блоги /
CQRS (Command Query Responsibility Segregation) на Java Javaican 12.05.2025 CQRS — Command Query Responsibility Segregation, или разделение ответственности команд и запросов. Суть этого архитектурного паттерна проста: операции чтения данных (запросы) отделяются от операций. . .	Шаблоны и приёмы реализации DDD на C# stackOverflow 12.05.2025 Когда я впервые погрузился в мир Domain-Driven Design, мне показалось, что это очередная модная методология, которая скоро канет в лету. Однако годы практики убедили меня в обратном. DDD — не просто. . .	Исследование рантаймов контейнеров Docker, containerd и rkt Mr. Docker 11.05.2025 Когда мы говорим о контейнерных рантаймах, мы обсуждаем программные компоненты, отвечающие за исполнение контейнеризованных приложений. Это тот слой, который берет образ контейнера и превращает его в. . .	Micronaut и GraalVM - будущее микросервисов на Java? Javaican 11.05.2025 Облачные вычисления безжалостно обнажили ахиллесову пяту Java — прожорливость к ресурсам и медлительный старт приложений. Традиционные фреймворки, годами радовавшие корпоративных разработчиков своей. . .	Инфраструктура как код на C# stackOverflow 11.05.2025 IaC — это управление и развертывание инфраструктуры через машиночитаемые файлы определений, а не через физическую настройку оборудования или интерактивные инструменты. Представьте: все ваши серверы,. . .
Инъекция зависимостей в ASP.NET Core - Практический подход UnmanagedCoder 11.05.2025 Инъекция зависимостей (Dependency Injection, DI) — это техника программирования, которая кардинально меняет подход к управлению зависимостями в приложениях. Представьте модульный дом, где каждая. . .	Битва за скорость: может ли Java догнать Rust и C++? Javaican 11.05.2025 Java, с её мантрой "напиши один раз, запускай где угодно", десятилетиями остаётся в тени своих "быстрых" собратьев, когда речь заходит о сырой вычислительной мощи. Rust и C++ традиционно занимают. . .	Упрощение разработки облачной инфраструктуры с Golang golander 11.05.2025 Причины популярности Go в облачной инфраструктуре просты и одновременно глубоки. Прежде всего — поразительная конкурентность, реализованная через горутины, которые дешевле традиционных потоков в. . .	Создание конвейеров данных ETL с помощью Pandas AI_Generated 10.05.2025 Помню свой первый опыт работы с большим датасетом — это была катастрофа из неотформатированных CSV-файлов, странных значений NULL и дубликатов, от которых ехала крыша. Тогда я потратил три дня на. . .	C++ и OpenCV - Гайд по продвинутому компьютерному зрению bytestream 10.05.2025 Компьютерное зрение — одна из тех технологий, которые буквально меняют мир на наших глазах. Если оглянуться на несколько лет назад, то сложно представить, что алгоритмы смогут не просто распознавать. . .

@grinder821 1 / 1 / 0 Регистрация: 24.09.2014 Сообщений: 34

	Создать двумерный динамический массив произвольного размера NxN (размер ввести). Заполнить массив случайным об 26.03.2015, 10:54. Показов 4409. Ответов 1 Метки нет (Все метки) Создать двумерный динамический массив произвольного размера NxN (размер ввести). Заполнить массив случайным образом. Найти все значения элементов массива, расположенные на главной диагонали и вывести их значения и индексы. 0

Опции темы

Создать двумерный динамический массив произвольного размера NxN (размер ввести). Заполнить массив случайным об

Решение