Карлсон и малыш подарили фрекен бок на день рождение 22 диска с играми. карлсон подарил столько же диско, сколько и малыш и еще 10 дисков. сколько дисков подарил малыш?

Пусть малыш подарил х дисков, тогда карлсон (х+10) вместе они подарили : х + (х+10)=22 2х+10=22 2х=12 х=6 ответ: малыш подарил 6 дисков

Var a: array[1..100] of integer;   i,n,min,max: integer;   begin  writeln('введите количество элементо массива');   read(n);   writeln('введите элементы массива');   for i: =1 to n do begin  read(a[i]);   end;   min: =a[1];   max: =a[1];   for i: =1 to n do begin  if a[i]> max then max: =a[i];   if a[i]< min then min: =a[i];   end;   writeln('произведение min и max = ', min*max);   end.

program pryam;

var y1, y2, y3, x1, x2 : real;

begin

  writeln ('введите координату (у) верхней точки прямой');

  readln (y1);

  writeln ('введите координату (у) нижней точки прямой');

  readln (y2);

  writeln ('введите координату (х) точек-концов прямой');

  readln (x1);

  writeln ('введите координату (у) точки, принадлежность к прямой которой нужно определить');

  readln (y3);

  writeln ('введите координату (х) точки, принадлежность к прямой которой нужно определить');

  readln (x2);

if (y3< =y1) and (y3> =y2) and (x2=x1) then writeln (' принадлежит ')

else writeln (' не принадлежит ');

readln;

end.