ответ:
объяснение:
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.
program raf105;
var fioa2:array[1..20] of string;
fioa1:string;
m1,g1,m2,g2,i,o:integer;
begin
write('Введите сегодняшнюю дату (месяц, год) через пробел: ');
readln(m1,g1);
g1:= g1*12;
m1:= m1+g1;
writeln;
for i:=1 to 20 do
begin
write(i,'. Введите фамилию, имя, отчество и адрес сотрудника: ');
readln(fioa1);
write(' Дата поступления (месяц, год): ');
readln(m2,g2);
writeln;
g2:= g2*12;
m2:= m2+g2;
if m1-m2>=36
then begin
o:= o+1;
fioa2[o]:= fioa1;
end;
end;
writeln('Сотрудники которые проработали не менее трёх лет:');
for i:=1 to o do
writeln(i,'. ',fioa2[i]);
end.
Язык программирования PascalABC