Ответ:
Смотри картинку
Объяснение:
Первый столбик (ноутбук) должен быть посередине между 1000000 и 1200000. Остальные рисуешь примерно.
Const n=10;
Var b,c;
a:array [1..n] of integer;
Begin
b:=0; c:=0;
For i:= 1 to n do
If a[i]>0 then b:=a[i]+b
else
inc(c);
Writeln(b,' ', c);
end.
Вместо вир поставить фок
вместо курс поставить танц
вместо б поставить д
вместо к поставить ф
Var x, y: real;
begin
writeln('Введите координаты точки x, y');
read(x, y);
if abs(x - 4) + abs(y - 4) <= 3 then writeln('Принадлежит')
else writeln('Не принадлежит')
end.