двумерный массив в delphi.

[Малгано]

Ребят, помогите пожалуйста. Мне на практике попалась задача, которую вообще не знаю как решать, помогите кто знает. Вот текст задачи:

В зрительном зале 23 ряда, в каждом из которых 40 мест(кресел).Информация о проданных билетах хранится в двухмерном массиве, номера строк которых соответствуют номерам рядов, а номера столбцов – номерам мест. Если билет на то или иное место продан, то соответствующий элемент массива имеет значение 1, в противном случае – 0. Опредилить, имеются ли свободные места в первом ряду.

Задачу нужно выполнить в delphi.

[fbus]

пиши в аську,сделаю

[Poma][a]

пиши в аську,сделаю

Вы ошиблись разделом

ТС, а пример входных и выходных данных нет? Просто не совсем ясно, каким макаром записана матрица.

Вариант с потолка :

const 
     SIZE = 40;
<...>
     
      while (i <= SIZE) and (t = 1) do begin
             Read (t);
             Inc (i)
      end;

      WriteLn (i <= SIZE)

Не проверял

[Малгано]

нужно что-то в этом роде, значения вводятся с клавиатуры, выводятся в listbox

var
  Form1: TForm1;
  massiv,massiv1: array of array of integer;
  k, n:integer;
implementation
procedure TForm1.Button1Click(Sender: TObject);
begin
  k:=strtoInt(InputBox('Размер массива', 'Введите число строк в массиве','0'));
 n:=strtoInt(InputBox('Размер массива', 'Введите число столбцов в массиве','0'));
  SetLength(massiv,n,k);
  SetLength(massiv1,n,k);
  //установка размера массива
end;
procedure TForm1.Button2Click(Sender: TObject);
var
  i,j:integer;
begin
 for i:=0 to n-1 do
 for j:=0 to k-1 do
   massiv[i,j]:=strtoint(InputBox('Элементы массива', 'Введите'+inttostr(i)+inttostr(j)+' элемент массива','0'));
//Ввод элементов массива
end;
procedure TForm1.Button3Click(Sender: TObject);
var
  s,s1:string;
  i,j:integer;
  max:integer;
begin
max:=massiv[0,0];
  for i:=0 to n-1 do
    for j:=0 to k-1 do
    if massiv[i,j]>max then max:=massiv[i,j] ; //нахождение максимального элемента массива
    for i:=0 to n-1 do
    for j:=0 to k-1 do
    if i=j then massiv1[i,j]:=max
    else massiv1[i,j]:=massiv[i,j]; //замена элементов главной диагонали массива на максимальный элемент
    for i:=0 to n-1 do // Вывод элементов массива в виде матрицы
    begin
    s:='';
    s1:='';
     for j:=0 to k-1 do
       begin
        s:=s+inttostr(massiv[i,j])+' ';
         s1:=s1+inttostr(massiv1[i,j])+' ';
       end;
       ListBox1.Items.Add(s);
        ListBox2.Items.Add(s1);
    end;
    edit1.Text:=inttostr(max);
end;
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.