Эссе на тему "Вдохновляющий вас пример развития человеческого капитала"​

майор - артиллерист капитан - летчик лейтенант - связист старшина - минометчик сержант - сапер ефрейтор - танкист

в двоичной 1000001

в восмеричной 101

в шеснадцатеричной 41

мальчики плывут на тот берег

один возвращается

мама плывет на тот берег

второй мальчик возвращается

два мальчика плывут на тот берег

один возвращается

отец плывет на тот берег

второй мальчик возвращается

мальчики плывут на тот берег

1) var a: array [1..2] of real;

          b: array [1..20] of real;

          i: integer;

          c: boolean;

  begin

  c: =false;

  readln(a[1],a[2]);

  for i: =1 to 20 do begin

                            readln(b[i]);

                            if (b[i]=a[1]) then begin writeln('a[1]=b[',i,']=',b[i]); c: =true; end;

                            if (b[i]=a[2]) then begin writeln('a[2]=b[',i,']=',b[i]); c: =true; end;

                            end;

  if c=false then writeln('совпадений не найдено');

end.

2) var a: array[1..10] of real;

    npol,notr,i: integer;

    begin

    npol: =0;

    notr: =0;

    for i: =1 to 10 do begin

                              readln(a[i]);

                              if a[i]> 0 then npol: =npol+1;

                              if a[i]< 0 then notr: =notr+1;

                              end;

    writeln('количество положительных значений: ',npol,', количество отрицательных значений: ',notr);

end.