Задача 1:

       Вводится последовательность целых чисел.

                Найти количество чисел среди введенных, имеющих максимальное  значение.

         Технические требования.

         Входными данными  являются  целые числа,  разделенные знаками пробела и/или перевода строки (количество чисел не более 500 000, все числа по модулю не превосходят 2*10 ⁹).

         Выходные данные – одно  число – результат вычисления.

         Время работы  программы – 5 сек.

Программа на языке  TURBO  PASCAL:

program a1;

uses crt;

const k1='Input1.PAS'; k2='Output1.PAS';   var   Input1, Output1  :text;

  l   :integer;

  n,k   :longint;

  begin clrscr; textcolor(11); textbackground(7);

assign(INPUT1,k1); reset(INPUT1);

assign(Output1, k2); rewrite(Output1);

 read(Input1,n); reset(INPUT1); l:=0;

While not SeekEof(Input1) do begin

 read(Input1,k);

 if k>n then begin n:=k; l:=1; end

 else if k=n then l:=l+1; end;

write('l=',l:3,' pas ',n:3);

 write(Output1,l:3); Close(Output1)

end.

Задача 2: Вводится последовательность чисел 0 и 1. Если количество чисел нечетное, то выдать количество 1 на нечетных местах последовательности, если же четное, - то на четных местах. 

 

Технические требования.

Входными данными  являются числа 0 и 1, разделенные знаками пробела и/или перевода строки (количество чисел не более 6 000 000).

Выходные данные – одно целое число – результат вычисления.

Время работы программы – 5 сек.

 

Программа на языке  TURBO  PASCAL:

program d1;

uses crt;

const k1='input1.pas';

         k2='output1.pas';

var input1,output1: text;

 i,j,l,k: longint;      

 n,m:  integer;

begin clrscr; textcolor(9); textbackground(11);

assign(input1,k1);

reset(input1);

assign(output1,k2); rewrite(output1);

 m:=0; i:=0; j:=0; l:=0;

 while not seekeof(input1) do begin

read(input1,n); l:=l+1;

if m=0 then begin if n=1 then i:=i+1; m:=1; end

else begin if n=1 then j:=j+1; m:=0; end; end;

 writeln('DLINA=',l:3,' no=',i:3,' yes=',j:3);

 if l mod 2=0 then k:=j

                       else k:=i;

  write('N=',k:7);

  write(output1,k:7);

  close(output1)

  end.