По заданному номеру вагона распечатать номера свободных мест - Pascal ABC

Формулировка задачи:

В поезде 18 вагонов по 30 мест в каждом. Информация о проданных на поезд билетах хранится в двумерном массиве, номера строк которого соответствуют номерам вагонов, а номера столбцов - номерам мест. Если билет на место продан, то соответствующий элемент имеет значение 1, если свободен, то 0. Написать программу, которая по заданному номеру вагона распечатывает номера свободных мест. Начал писать, но не выходит:
var a:array[1..18,1..30] of integer;
    k,n,m,i,j:integer;
begin
n:=18;
m:=30;
writeln('Исходный массив');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=random(2);
    write(a[i,j]:3);
   end;
  writeln;
 end;
 writeln('Введите номер вагона '); readln(k);
 for i:=1 to n do
   begin
     for j:=1 to m do
     begin
      if a[i,j]=0 then
       writeln('В ',k,' вагоне ',,'-е место свободно');
      end;
      writeln; 
   end;
 end.
Не знаю как выводить свободные места.

Код к задаче: «По заданному номеру вагона распечатать номера свободных мест - Pascal ABC»

textual
WriteLn('Введите номер вагона:');
ReadLn(k);
Write('Свободные места в ',k,'-м вагоне: ');
for j:=1 to m do
  if a[k,j]=0 then Write(j:1,' ');
WriteLn;

6   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ