Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 199016
11.07.2020, 22:36
0.00 руб.
0 1 1
Компьютеры Программирование
Уважаемые эксперты! Пожалуйста, ответьте на вопрос:

Тема: «Программирование с использованием динамических массивов»

Помогите с написанием кода: 1. Составить программу формирования динамического массива А из N случайных чисел, сделать возможным его редактирование, упорядочить элементы массива по возрастанию, затем удалить все элементы, кроме первых 3-х.
 
2. Составить программу формирования динамической квадратной матрицы А n-го порядка (n строк и n столбцов) случайными числами, сделать возможным ее редактирование. Построить динамический линейный массив B из модулей отрицательных элементов матрицы А.

В делфи

Обсуждение

давно
Зенченко Константин Николаевич
Старший Модератор
31795
6196
21.07.2020, 10:23
общий
это ответ
Здравствуйте, JonMoxley!

2)
Смотрите код:
[code lang=pascal]program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
a:array of array of integer;
b:array of integer;
i,j,k,n,m:integer;
begin
{ TODO -oUser -cConsole Main : Insert code here }
write('enter n:=');
readln(n);
writeln('Array A:');
SetLength(a,n);
m:=0;
for i:=0 to n-1 do
begin
setLength(a[i],n);
for j:=0 to n-1 do
begin
a[i,j]:=random(100)-20;
write(a[i,j]:4);
if a[i,j]<0 then inc(m);
end;
writeln;
end;
SetLength(b,m);
k:=0;
for i:=0 to n-1 do
for j:=0 to n-1 do
if a[i,j]<0 then
begin
b[k]:=abs(a[i,j]);
inc(k);
end;
writeln('Array B:');
for i:=0 to m-1 do
write(b[i]:4);
end.[/code]
Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа