Дано список [13, 19, 11, 7, 18]. Вилучити елемент на першій позиції і після цього знайти максимальний елемент.

для pascal abc

uses graphabc; begin window.title : = 'apple'; var y,y0,x,t: integer; brush.color : = clgreen; y0: =70; x: =70; lockdrawing; for t : = 0 to 8 do begin y: =y0+5*t*t; window.clear(clwhite); circle(x,y,50); redraw; sleep(100); end; end.

var alpha: real;

begin

  read(alpha);

  if alpha > 90 then write("tupougolnyj");

  if alpha = 90 then write("prjamougolnyj");

  if alpha < 90 then write("ostrougolnyj");

end.

роль:

1.  появление новых средств, накопление информации на машиночитаемых носителях.

2.  развитие средств связи, обеспечивающие доставку информации практически в любую точку, без ограничения времени и пространства.

3.  возможность автоматической обработки информации с компьютеров по данным алгоритмам (сортировка, классификация, представление в нужной форме).

область применения: везде. в частной жизни каждого человека, на всех производствах, в любой работе где необходима работа с информацией.

var a,b,c: real;

begin

  read(a,b,c);

  if (a> b) and (b> c) then begin

      a: =a*2;

      b: =b*2;

      c: =c*2;

  end

  else begin

      a: =-a;

      b: =-b;

      c: =-c;

  end;

  writeln(a,b,c);

end.