5. вы собираетесь в командировку. проезд только поездом. билетов пока нет. сидя дома, вы отслеживаете информацию через портал ржд о состоянии продаж-покупок билетов. можете ли вы купить на проходящий поезд билет, который только что появился в продаже? если да, то как это можно сделать? *-*

Program project2; {$apptype console} uses  windows; var n,i,s: integer;     a: array of  integer; begin  randomize; s: =0;   setconsoleoutputcp(1251);   write('введите длину массива: ');   readln(n);   setlength(a,n);   for i: =0 to length(a) do    a[i]: =random(100)-50;   for i: =0 to length(a) do   write(a[i]: 3);     writeln;   for i: =0 to length(a) do    if a[i] mod 2 =0 then    s: =s+a[i];   writeln('сумма: ',s);   readln; end.

Uses    crt; const  m = 100; var  a: array [1..m] of integer;           i, max, k, n: integer; begin  clrscr;       repeat        writeln('введите количество элементов массива');       readln(n);   until (n < > 0) and (n> 0);       for i : = 1 to n do  begin        writeln('введите [', i, '] элемент массива');         readln(a[i]);   end;     for i : = 1 to n do      write(' ', a[i]);         writeln;       max : = a[1];   for i : = 2 to n do        if a[i] > max then max : = a[i];   writeln(' max= ', max);       for i : = 1 to n do        if a[i] = max then k : = k + 1;       writeln(' k= ', k);       end.