Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Bristel
0 / 0 / 1
Регистрация: 24.01.2014
Сообщений: 12
#1

Двумерный массив - Delphi

09.02.2014, 15:23. Просмотров 273. Ответов 1
Метки нет (Все метки)

Заданы матрица А [4x8] и одномерный массив В [I:4] , заполненных случайным образом. Составить программу печати минимального элемента столбца матрицы А, номер которого равен максимальному элементу одномерного массива В.

проверьте все правильно
0
Вложения
Тип файла: 7z max and min.7z (176.7 Кб, 1 просмотров)
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.02.2014, 15:23
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Двумерный массив (Delphi):

Дан двумерный массив, сделать из него одномерный массив по спирали
дан двумерный массив, сделать из него одномерный массив по спирали. должно...

Delphi. Двумерный массив. Заполнить массив А следующим образом var A:array [1.10, 1.10] of byte; :
Помогите решить задачу, как заполнить ее в StringGrid var A:array of byte;...

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

Дан двумерный массив. Получить новый массив путем деления всех элементов строки на наименьший по модулю эл
Дан двумерный массив. Получить новый массив путем деления всех элементов строки...

Двумерный массив.Найти сумму элементов в каждом столбце и занести ее в новый одномерный массив.Где ошибка?
program Project14; {$APPTYPE CONSOLE} uses SysUtils; type mas1=array ...

Преобразовать двумерный массив T в одномерный массив Y
Сформируйте двумерный целочисленный массив T(6x6), используя генератор...

1
Puporev
Модератор
54148 / 41781 / 28887
Регистрация: 18.05.2008
Сообщений: 98,329
09.02.2014, 15:38 #2
Лучший ответ Сообщение было отмечено Bristel как решение

Решение

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
procedure TForm1.Button1Click(Sender: TObject);
const
  n=4;
var
  a: array[1..n,1..2*n] of integer;
  b: array[1..n] of integer;
  i, j, max, min: integer;
begin
 for i:=1 to n do
  begin
   for j:=1 to 2*n do
    begin
      a[i,j]:=random(99)+1;
      stringgrid1.cells[j-1,i-1]:=inttostr(a[i,j]);
    end;
  end;
 for i:=1 to n do
  begin
   b[i]:=random(2*n)+1;
   stringgrid2.cells[i-1,0]:=inttostr(b[i]);
   if i=1 then max:=b[1]
   else if b[i]>max then max:=b[i];
  end;
 label1.caption:='Максимальный элемент массива b='+inttostr(max);
 min:=a[1,max];
 for i:=1 to n do
 if a[i,max]<min then min:=a[i,max];
 label2.caption:='Минимальный элемент столбца '+inttostr(max)+'='+inttostr(min);
 
end;
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.02.2014, 15:38
Привет! Вот еще темы с решениями:

Двумерный массив
При нажатии на Button вывести матрицу в StringGride,а при нажатии Button2...

Двумерный массив
Помогите написать код ,что бы он находил сумму каждой строки двумерного массива...

Двумерный массив
Здравствуйте. Подскажите кто-нибудь, правильно ли я рассуждаю. Есть двумерный...

двумерный массив
Для элементов побочной диагонали, меньших нуля, найти максимум элементов...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru