Определить число свободных мест в любом из вагонов поезда

@Эльман · Регистрация: 04.07.2012

В поезде 18 вагонов,в каждом из которых 36 мест. Информация о проданных на поезд билетах хранится в двухмерном массиве,номера строк которых соответствуют номерам вагонов,а номера столбцов - номерам мест. Если билет на то или иное место продано,то соответствующий элемент массива имеет значение 1, в противном случае - 0. Составить программу,определяющую число свободных мест в любом из вагонов поезда.

@Selot · 08.07.2012, 21:03

Не совсем понятно, откуда берется массив с данными? из файла, или вручную заполняется в самой программе? Вот код с ручным заполнением массива:

Pascal

var mas: array [1..18, 1..36] of integer;
    i, j, total, nomer: integer;
begin
 
 for i:=1 to 18 do
   begin
    writeln('vagon ',i,':');
    for j:=1 to 36 do 
     begin 
       write('mesto ',j,':'); 
       readln(mas[i,j]);
     end
   end;
 
 total:=0;
 write('Vvedite nomer vagona (1-18): '); readln(nomer);
 if (nomer<1) or (nomer>18) then writeln('Net takogo vagona');
 else
   for i:=1 to 36 do 
     if mas[nomer,i]=0 then total=total+1;
 write('Svobodnih mest v vagone №',nomer,' = ', total);
end.

@Эльман 1 / 1 / 0 Регистрация: 04.07.2012 Сообщений: 21
		1
	Определить число свободных мест в любом из вагонов поезда 08.07.2012, 20:37. Просмотров 1665. Ответов 1 Метки нет (Все метки) В поезде 18 вагонов,в каждом из которых 36 мест. Информация о проданных на поезд билетах хранится в двухмерном массиве,номера строк которых соответствуют номерам вагонов,а номера столбцов - номерам мест. Если билет на то или иное место продано,то соответствующий элемент массива имеет значение 1, в противном случае - 0. Составить программу,определяющую число свободных мест в любом из вагонов поезда. 0

Опции темы

Определить число свободных мест в любом из вагонов поезда

Решение