Создать базу данных «авиарейсы аэропортов москвы», содержащую следующую информацию. рейс 311 до санкт-петербурга вылетает каждый день в 10-00. рейс 2115 до воронежа вылетает по понедельникам, и субботам в 8-35. рейс 214 до минска вылетает по вторникам, четвергам и субботам в 13-15. рейс1222 до екатеринбурга вылетает ежедневно в 20-30. рейс 1234 до новосибирска вылетает по понедельникам, , пятницам и воскресеньям в 9-00. рейс 763 до ижевска вылетает по понедельникам, , пятницам в 15-40 рейс 521 до мурманска вылетает по вторникам и субботам в 11-10. из аэропорта домодедово отправляются рейсы до воронежа, новосибирска и ижевска. из аэропорта шереметьево отправляются рейсы до санкт-петербурга и екатеринбурга. из аэропорта внуково отправляются рейсы до минска и мурманска.

Во вложении - рабочая книга ms excel-2003

Программу надо сформатировать и тогда её структура будет видна лучше. а чтобы понять, как идет выполнение, в нужных точках ставим промежуточную выдачу - это называется "трассировкой". var   s, k: integer; label   met; begin   s: =-12;   k: =90;   writeln('s=',s,', k=',k);   s: =s+10;   writeln('s=',s); met:   writeln('метка met: ');   k: =k+10; write('k=',k);   if k< 200 then s: =50 else s: =s+k;   writeln(', s=',s);   if k< 200 then goto met;   writeln('результат: s=',s) end. результат выполнения программы: s=-12, k=90 s=-2 метка met: k=100, s=50 метка met: k=110, s=50 метка met: k=120, s=50 метка met: k=130, s=50 метка met: k=140, s=50 метка met: k=150, s=50 метка met: k=160, s=50 метка met: k=170, s=50 метка met: k=180, s=50 метка met: k=190, s=50 метка met: k=200, s=250 результат: s=250

Program project2; {$apptype console} uses  sysutils,windows; constnmin=1; nmax=20; typemas=array[nmin..nmax] of integer; vara: mas; i: integer; s: real; begin  setconsolecp(1251);   setconsoleoutputcp(1251);   randomize; for i: =1 to   nmax doa[i]: =random(1000)-500; writeln ('ìàññèâ: ');   for i: =1 to   nmax do  beginwrite (''); write   (a[i]: 2); writeln (''); end; s: =0; for i: =1 to nmax dobeginif a[i]< 0 thens: =s+a[i]; end; writeln ('ñóììà îòðèöàòåëüíûõ ýëåìåíòîâ ìàññèâà = ',s: 2: 2); readln; end.