Взрительном зале 23 ряда, в каждом из которых 40 мест (кресел информация о проданных билетах хранится в двумерном массиве, номера строк которого соответствуют номерам рядов, а номера столбцов — номерам мест. если билет на то или иное место продан, то соответствующий элемент массива имеет значение 1, в противном случае — 0. определить общее число свободных мест в зрительном зале. напишите полный код на языке c#, .

ответ:

объяснение:

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

const n=23; m=40; //n-ряды, m-места

var

  a: array[1..n,1..m] of integer; //зрительный зал

  i,j,k: integer;

begin

  randomize;

  writeln('зрительный зал: ');

  write('м/р');

  for i: =1 to m do write(i: 3);

  writeln;

  for i: =1 to n do begin

    write(i: 3);

    for j: =1 to m do begin

      a[i,j]: =ord(random(10)> 0); write(a[i,j]: 3); //read(a[i,j]); я ввожу гадалкой, т.к. руками вбивать 920 цифирь не входит в мое понятие героизма

    end;

    writeln;

  end;

  repeat

    write('в каком ряду смотреть свободные места? ');

    readln(i);

  until (i> 0) and (i

  k: =0;

  for j: =1 to m do k: =k+ord(a[i,j]=0); //cчитаем свободные места

  write('в ряду ',i);

  if k> 0 then writeln(' есть свободные места в количестве ',k,' шт.') else

  writeln(' свободных мест нет');

end.

Pascalabc.net 3.4.0, сборка 1671 от 31.05.2018 внимание! если программа не работает, обновите версию! №1 begin   var (a,b): =readinteger2('введите a,b: ');   if a.iseven then a-=1;   range(a,b,-2).println end. пример введите a,b: 18 4 17 15 13 11 9 7 5 №2 begin   var (a,b): =readinteger2('введите a,b: ');   range(b,a).aggregate(biginteger(,j)-> i*j).println end. пример введите a,b: 50 7 42241796113490802838350844675089956728302279956889600000000000 №3 begin   var n: =readinteger('n=');   for var i: =1 to n do       (1.to(('') end. пример n= 7 1 12 123 1234 12345 123456 1234567

Function sum_del(x: longint): longint; var     s, i: longint; begin     s : = 0;     for i : = 1 to x div 2 do         if x mod i = 0 then             s : = s + i;     sum_del : = s; end; var     i, s1, s2: longint; begin     for i : = 1 to 100000 do     begin         s1 : = sum_del(i);         s2 : = sum_del(s1);         if (s2 = i) and (s1 < i) then             writeln(s1, ' ', i);     end; end.